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ABS TRACT 


THE RKOG DUAL PORT LOGIC PERFORMS A SERIES OF TESTS WHICH 
VERIFY THAT THE DUAL PORT OPTION IS FUNCTIONING PROPERLY. 


BOTH PORTS OF THE RKOG ARE CABLED TO THE SAME RK611 BY A 
STANDARD CABLE & THE DUAL PORT TEST SWITCH IS ENABLED 

ON THE DUAL PORT MODULE. THIS ARRANGEMENT ALLOWS THE DUAL 
_ ie” BE TESTED FROM ONE PDOP-11/RK611 TO A MAXIMUM 


THIS PROGRAM WILL TEST RKOG/RKO7 DRIVES WITHOUT OPERATOR INPUTS 


REQUIREMENTS 
HARDWARE 
THE FOLLOWING HARDWARE IS PEQUIRED TO RUN THE DISK DISGNOSTIC: 


POP-11 

CONSOLE TELETYPE 

16K MEMORY 

KW11-L OR KW11-P CLOCK 

RKO6 UNIBUS CONTROLLER (RK611) 
1 TO 4 RKOG/RKO7 DRIVES 
FORMATTED DISKPACKS 


PRELIMINARY TESTING & PROGRAMS 


1. THE RK&11 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD 
FIRST RUN SUCCESSFULLY ON BOTH PORTS 


2. THE RKO6 DRIVE DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN 
SUCCESSFULLY. 


3. THE RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC SHOULD FIRST 
RUN SUCESSFULLY. 
RESTRICTIONS & OPERATOR ACTION 


TO TEST THE RKOG DUAL PORT OPTION WITH THIS PROGRAM. THE DUAL 
PORT TEST SWITCH MUST BE ENABLED ON THE DUAL PORT MODULE. 


THE CABLE FROM THE RKG1i 1S DAISY CHAINED TO BOTH PORTS OF 
RKO6 UNDER TEST. ENABLING THE SWITCH ON THE DUAL PORT MODULE. 
GROUNDS BIT O OF THE UNIT SELECT LINES GOING TO THE PORT B 
INTERFACE & TIMING MODULE (M7706). 


THE EFFECT OF THIS 1S THAT wIT O UNIT SELECT IS COMPLEMENTED 


SEQ 0003 
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146 ON PORT & AND THE DRIVE APPEARS AS 2 SEPARATE UNITS TO THE 

147 RK611. EACH PORT OF THE RKOG WILL RESPOND TO A DIFFERENT 

148 DRIVE ADDRESS. 

i 

1 

151 THE ADORESS OF EACH PORT WILL DEPEND ON THE DRIVE ADDRESS. FOR 
152 THIS REASON, THE RESTRICTiON 1S MADE THAT ONLY EVEN NUMBERED 
153 UNIT SELECT PLUGS BE USED. IN THIS WAY PORT ‘A’ WILL RESPOND TO 
154 THE DRIVE ADDRESS. & PORT ‘'B’ WILL RESPOND TO ADDRESS+1 (THE ADD- 
Sa RESS DEVELOPED BY THE SWITCH). 

157 BECAUSE OF THE ABOVE CONSIDERATIONS. A MAXIMUM OF 4 DRIVES CAN 
= BE TESTED BY THIS PROGRAM. WHICH WILL ‘SEE’ 8 DRIVES. 

159 

160 ANY OTHER DRIVES ON THE SYSTEM WHICH HAS ANY 

161 ADDRESS IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE 
loc DESELECTED. BOTH PORTS SWITCHED OFF. 

le? 

164 A FURTHER REQUIREMENT IS THE SYSTEM MUST HAVE EITHER A KW11-P 
165 OR KWii-L. IF NEITHER IS PRESENT RN ERROR MESSAGE WILL BE TYPED 
os. AND THE PROGRAM WILL JUMP TO THE END OF PASS 

16 

168 

169 3.0 PROGRAM CONSIDERATIONS 

170 

171 

172 \ 3.1 POP-11 FAMILY COMPATIBILITY 

173 

i . THIS PROGRAM CAN BE USED BY THE POP-11/04,05, 10. 20. 

oh . 34. 35,40,45,50,55 & 70. 

176 

177 IT 1S COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST 
178 THE RKOG ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS 

179 DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611. 

180 

181 

182 

183 

184 3.2 XXDP 

185 

186 THIS PROGRAM SHOULD NOT BE CHAINED BY xXOP 

187 

188 CHAIN MODE OPERATION (MONITOR) 

i 

191 BY DEFINITION. ANY PROGRAM THAT REQUIRES OPERATOR INTERVENTION 
192 SHOULD NOT BE CHAINED. 

193 

194 IN THIS CASE. OPERATOR INTERVENTION IS REQ'D TO ENABLE THE 

195 DUAL PORT TEST SWITCH & DAISY CHAINING BOTH PORTS TO THE SANE 
196 RK611. 

197 

198 DUMP MODE OPERATION (MANUAL ) 

199 

200 1. (tNPUT DIALOGUE IF STARTED FROM 220 


201 2. 'F THE LOADING MEDIUM ON DRIVE O 1S AN PKOG. IT WILL BE 
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TESTED. THE OPERATOR IS FIRST GIVEN A MESSAGE TO REPLACE 
THE PACK ON DRIVE O WITH A SCRATCH PACK & TYPE <CR> 
WHEN DONE. 

ACT/APT 

THIS PROGRAM IS ACT COMPATIBLE. 

HOWEVER, IT SHOULD BE RUN ONLY IN DUMP MODE. 

AUTOMATIC MODE (MONITOR) 


BY DEFINITION ANY PROGRAM THAT REQUIRES OPERATOR INTERVENTION 
SHOULD NOT BE RUN IN THE AUTO MODE 


DUMP MODE <MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 


APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES. VIA RUNNING THE APT UTILITY PROGRAM “TSP”: 


1. SOFTWARE ENVIRONMENT: 
=1 IF APT SCRIPT MODE 
=0 IF STANDALONE MODE 


ENVIRONMENT MODE: BYTE 
BIT 7 = 


t> 


= 1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
= 0 DON'T SPOOL TO APT 

BIT 5 = : SUPPRESS CONSOLE OUTPUT 


ALLOW CONSOLE OUTPUT 
BITS 4-0 NOT USED 


3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 
IF ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET TO 1. THE SOFTWARE 
SWITCH REGISTER WiLL BE USED. INSTEAD OF THE HARDWARE CONSOLE 
SWITCH REGISTER. REGARDLESS OF WHICH ONE IS USED. ALL BITS 
DEFINED IN SECTIONS 4.3 & 4.4 (SWITCH REGISTER OPTIONS) MAY USED 
WHEN RUNNING IN STANDALONE MODE 
IN APT SCRIPT MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS 


BE SET TO 0. 


4 SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 


5. CPU OPTIONS: 
NOT USED 


6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 


SEQ 0005 
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7. INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = 210 


8. BUS PRIORITY 1: 
USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = 5 


9. INTERRUPT VECTOR 2: 
NOT USED 


10. BUS PRIORITY 2: 
NOT USED 


11. BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


12. DEVICE MAP: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 
1 IN BITS 0-7 WILL SELECT THE CORRESPONDING DRIVE TO BE 
TESTED. BITS 8-15 ARE NOT USED. 


NOTE: IN THIS PROGRAM, ONLY EVEN NUMBERED DRIVES CAN BE 
TESTED (0, 2,4,6) 


13. CONTROLLER DESCRIPTORS: 
NOT USED. 


14. DRIVE DESCRIPTOR CODES (IN WORDS) 
NOT USED 

MEMORY MANAGEMENT 

MEMORY MANAGEMENT 1S NOT USED 


PARITY CHECK ENABLED 


IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM. 
THE PROGRAM WiLL RUN WITH MEMORY CHECK ENABLED 

BAD SECTOR 

THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR 
INFORMATION CONTAINED ON CYLINDER 410, HEAD 2. PRINTOUTS 

OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT. 
EXECUTION TIME 

THE EXECUTION TIME 1S APPROX. 2.5 MIN BASED ON THE FOP 11/50. 


FAULT ISOLATION 





SEQ 0006 
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TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 


THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 


ANALYSIS 


DEFAULT UNIBUS ADDRESSES & VECTORS 


THE FOLLOWING 1S A LIST OF ALL DEFAULT ADDRESSES & 
VECTORS OF ALL HARDWARE TO BE USED & THEIR MEMORY 


ADDRESSES WHERE THEY CAN BE CHANGED. 


LOCATION 
RKO6-RKO7 BUSS ADDRESS 1264 
CONTROLLER INTERRUPT VECTOR 1314 
CONTROLLER PRIORITY 1316 
P-CLOCK STATUS REG 1320 
P-CLOCK SET BUFFER 1322 
P-CLOCK READ BUFFER 1324 
L-CLOCK STATUS REG 1326 
L-CLOCK INTERRUPT VECTOR 1330 
P-CLOCK INTERRUPT VECTOR 1332 
TTY KB STATUS REG 1144 
TTY KB BUFFER 1146 
TTY PRINTER STATUS REG 1150 
TTY PRINTER BUFFER 1152 


OPERATING PROCEDURE & CONTROL FUNCTIONS 


PROGRAM LOADING 


DEFAULT CONTENTS 
177440 
2 


177564 
177566 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR ABSOLUTE LOADER TAFES: OR FROM ANY MEDIA 


SUPPORTED BY XXDP. 


LOAD THE STARTING ADDRESS (SEE SEC 4. 2) 


SET SWITCH REGISTERS AS DESIRED (SEE SEC 4. 3). 


INSTALL CALBE(S) & SET DRIVES TO BE TESTED IN THE ‘LOAD’ CONDITION & WITH 


BOTH PORTS SELECTED & WRITE LOCK DISABLED. DRIVES 
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED 
ALSO. THE DUAL PORT TEST SWITCH ON THE DUAL PORT MODULE 


MUST BE ENABLED. 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ‘START SPINOLE’ 
COMMAND IF THE RUN/STOP SWITCH IS IN THE ‘STOP' 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


UZR6GA. P11 


29-SEP-77 09: 55 


4 


35 


os 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 8 SEQ 0008 
POSITION. 


PRESS ‘START’ 


THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN A 
cont ane et THE OPERATOR TO DETERMINE DRIVES TO BE TESTED 


THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY 
THE INPUT DIALOGUE. IF A SPECIFIED DRIVE CANNOT BE FOUND BY 
THE PROGRAM IT WILL BE FLAGGED AS AN ERROR THAT THE DRIVE 
WAS NOT AVAILABLE. THEN BEGINNING WITH THE LOWEST NUMERICAL 
DRIVE AND PROCEEDING IN SEQUENTIAL ORDER. ALL VALID DRIVES 
WILL BE TESTED. ONE PASS THROUGH THE TEST SEQUENCE WILL BE 


PERFORMED ON EACH DRIVE BEFORE MOVING TO THE NEXT DRIVE 

IN SEQUENCE. THE ORIVE TO BE TESTED WILL BE TYPED AT THE 
BEGINNING OF EACH PASS. “END OF PASS” WILL BE TYPED AFTER 
TESTING ALL DRIVES. 


STARTING LOCATIONS 


LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS 
ADDRESS & THE CONTROLLER INTERRUPT VECTOR 
& TEST ALL DRIVES IN THE ‘DRIVE PRESENT’ 
CONDITION 


NOTE: THE DRIVE PRESENT CONDITION IS 
A. HEADS MANUALLY LOADED 
B. BOTH PORTS SELECTED i tel 
C. WRITE LOCK DISABLED 
D. ORIVE READY INDICATOR ON 
LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 
VIA THE INPUT DIALOGUE. BUSS ADDRESS & 


CONT. INTERRUPT VECTOR INPUTTED ONLY ON 
1ST PASS 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3. 3. 
THE PROGRAM WILL DETERM!NE WHETHER THE DRIVE 
1S AN RKOG/RKO7 WITHOUT OPERATOR INPUTS 

SWITCH REGISTER 

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 

SWITCH FUNCTION 
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427 

428 15 HALT ON ERROR 

42 14 LOOP ON TEST 

430 13 INHIBIT ERROR TYPEOUT 

.ss 12 BYPASS DRIVE AFTER 20 ERRORS 

433 11 INHIBIT ITERATION 

434 10 BELL ON ERROR 

435 9 LOOP ON ERROR 

oe g LOOP ON TEST IN SW<07: 00> 

438 

es 43.1 SW<15> 

44 

yu THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT 
442 THE ERROR MESSAGE AND PERTINENT !NFORMATION. 

443 PRESSING “CONTINUE” CONTINUES OPERATION OF THE PROGRAM 
444 

44S 

4Y4G 43.2 SW<14> 

447 

44g THE PROGRAM LOO°®S ON THE TEST THAT IS BEING EXECUTED WHEN 
449 THE SWITCH 1S FUT ON. THIS SWITCH IS NORMALLY USED ALONG 
450 WITH SW15. 

451 

452 

453 433  SW<K13> 

454 

455 THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
456 LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9). 

457 WITH SW<13>SET, SW<15> SHOULD NOT BE SET 

458 

459 

460 4 3.4 SW<12> 

4ol 

462 THIS SWITCH BYPASSES A GIVEN DPIVE AFTER 20 ERRORS HAVE 
463 BEEN DETECTED. 

4¥ou 

4o5 

466 4.3.5 SW<11> 

467 

4eS EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY AFTER THE 
469 FIRST PASS, EACH SUBTEST IS ITERATED A NUMBER OF TIMES 
470 (USUALLY 50, 5 IN SOME CASES). SETTING THIS SWITCH INHIBITS 
471 ITERATIONS, SO THAT QUICK PASSES CAN BE MADE 

472 

473 

474 4.3.6 SW<10> 

475 

476 RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED 
477 

478 

479 437 SW<K09> 

480 


481 THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR 
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482 ERRORS. IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
no TO THE BEGINNING OF TEST. 
485 
486 
<> 4.3.8  SW<08> 
489 THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS PER 
490 SW<00-7>) FOR EXECUTION AND SUBSEQUENT LOOPING. THUS IF 
491 TEST 15 1S TO BE SELECTED THE SWITCH SETTING WOULD BE 
492 000415. IT SHOULD BE NOTED THAT BEFORE SELECTING & LOOPING 
wh TEST 15, ALL THE PREVIOUS TESTS (1-14) WILL BE EXECUTED. 
495 
te 4.4 "SOF TWARE’ SWITCH REGISTER 
498 IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 
499 (1.€. AN 11704 OR 11734) THE PROGRAM WILL DETERMINE THAT 
500 THE HARDWARE SWITCH REGISTER 1S NOT PRESENT AND WILL USE 
501 A ‘SOFTWARE’ SWITCH REGISTER. THE ‘SOFTWARE’ SWITCH 
502 REGISTER 1S LOCATED AT LOCATION 176 (8). THE SETTINGS 
503 OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A 

504 KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G'. 
505 THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G‘' AT ANY TIME 

506 EXCEPT WHEN THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING 
507 AN RKOG INTERRUPT. THE ‘SOFTWARE’ SWITCH VALUES ARE 
508 ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT 
509 FROM THE SWITCH ENTRY ROUTINE: 
510 
+e SWR = NNNNNN NEW = 

1 
513 EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH 
514 REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
515 REQUIRED.. ‘RUBOUT’ AND ‘CONTROL U' FUNCTIONS MAY BE 
4 USED TO CORRECT TYPING ERRORS DURING SWITCH ENTRY. 
51 
518 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 
519 ‘SOFTWARE’ SWITCH REGISTER MAY BE USED. IF THE PROGRAM 
520 FINDS ALL 16 SWITCHES IN THE ‘UP’ POSITION, ALL SWITCH 
521 REGISTER REFERENCES WiLL BE TO THE ‘SOFTWARE’ REGISTER 
522 AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

23 
524 
525 4.5 INPUT DIALOGUE 
526 moll 
527 THE DIALOGUE WILL BE DONE INTERACTIVELY. THE PROGRAM WILL 
528 REQUEST A PARAMETER BY CONSOLE TYPEOUT. THE PARAMETER MAY 
529 THEN BE ENTERED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT 
530 BY A CARRIAGE RETURN. UNRECOGNIZED OR ILLEGAL RESPONSES WILL 
531 BE ECHOED BACK FOLLOWED BY "7". THE PROPER RESPONSE MAY 
532 THEN BE ENTERED. 
533 
534 IMPORTANT: FOR VARIATIONS OF THE ABOVE. SEE XXDP. ACT/APT 
535 
536 CONSIDERATIONS IN SECTIONS 3.28 3 4 
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DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 
IN THE ‘DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 
TO BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE 
RETURN. 

E.G. ORIVES TO BE TESTED (EVEN NOS. ONLY): 0,4 


NOTES: 1. FOR VARIATIONS OF THE ABOVE. SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3. 3. 


2. SEE "RESTRICTIONS & OPERATOR ACTION’ IN SECTION 2. 3. 


BUS ADDRESS 
THE REQUEST WILL BE: 

TYPE IN BUSS ADDRESS IF NOT 177440 
THE DEFAULT 1S A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE iN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT 1S A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNIBUS RKOG-RKO7 DUAL PORT ORIVE DIAGNOSTIC 
MAINDEC-11-DZ2R6G-A-PB 
DRIVES TO BE TESTED: 0.4<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 
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TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 

" 

DRIVE 0 

(THE REST 1S IDENTICAL TO THE EXAMPLE SHOWN IN 4. 6 BELOW) 


PROGRAM EXAMPLE 


THE FOLLOWING 1S AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
MAINDEC-11-DZR6G-A-PB 

WILL TEST DRIVES: 

. 

DRIVE O 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO BBB 


DRIVE 4 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DODD 


END PASS #1 


WILL TEST DRIVES: 
0 

4 

DRIVE O 


DRIVE 4 
END PASS # 2 
(ETC) 


THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XxDP 


NOTES: 1. FOR VARIATIONS OF THE ABOVE. SEE XXDP. ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.23. 





SEQ 0012 
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2. SEE ‘RESTRICTIONS & OPERATOR ACTION’ IN SECTION 2. 3. 
HALTING THE PROGRAM 
THE PROGRAM PROVIDES A METHOD OF HALTING ITSELF SUCH THAT 
THE CARTRIDGE AND/OR DRIVE 1S NOT LEFT IN ON UNDETERMINED 
STATE; \E: HEADS UNLOADED CR INVALID FORMAT. 
TO PROPERLY HALT. TYPE CONTROL-C ( C) ON THE CONSOLE. 
IF HEADS ARE LOADED. THE PROGRAM WILL: 
1. ECHO C 
Zz. TYPE “CPU HALTED” 
3. HALT THE PROGRAM 


IF HEADS ARE NOT LOADED. THE PROGRAM WILL: 


1. ECHO C€ 

2. TYPE ‘HALT PENDING. PLEASE WAIT’ 
3. WILL LOAD HEADS 

4. TYPE ‘CPU HALTED’ 

5. HALT THE PROGRAN 

NOTES: 


1. OPERATING THE ‘CONTINUE’ SWITCK ON THE CPU CONSOLE WILL RETURN THE 
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1'ST DRIVE AGAIN. 


DUAL PORT DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 
GENERAL 
A. BASIC CONTROLLER TESTS. SiZING & SETUP 


THESE TESTS DO BASIC CONTPOLLER REGISTER REFERENCE TESTS. 
CHECKS OPERATOR INPUTS AGAINST DRIVES ON THE LINE OR DE- 
FAULTS TO TEST ALL DRIVES SEEN ON THE LINE WITHIN THE 
RESTRICTIONS DESCRIBED IN SECTION 2.3. CHECKS ARE MADE ON 
THE EXISTENCE OF EITHER AN L OR P CLOCK. 


B. OUAL PORT TESTS 
THESE TESTS VERIFY THE ABILITY OF THE DRIVE TO OPERATE 
IN THE DUAL PORT MODE. RELEASE. TIMEOUT & PROPER INTER- 
ACTION BETWEEN THE PORTS ARE VERIFIED 
C. METHOD TO DETERMINE THAT THE DRIVE IS IN NEUTRAL OR SEIZED. 
THE PROGRAM DOES A ‘SELECT DRIVE’ COMMAND TO PORT ‘A’. IF 


MESSAGE AO RETURNS WITH THE ‘DRIVE AVAILABLE’ BIT NOT SET. 
1T ASSUMES PORT 'B* HAS SE'ZED THE DPIVE. 


5.2 





IF MESSAGE AD RETURNS WITH THE ‘DRIVE AVAILABLE’ BIT SET. 
ber tee THE ORIVE WAS IN NEUTRAL OR ALREADY SEIZED BY 


AFTER A TIMEOUT OF 1 SECOND BY PORT ‘A’. ASSUMING NO FURTHER 
COMMANDS, THE ORIVE SHOULD BECOME AVAILABLE TO PORT 'B'. 


THERE 1S NO SPECIFIC METHOD TO VERIFY THE DRIVE IS IN NEUTRAL 
BECAUSE THE ACT OF DOING A SELECT DRIVE COMMAND TO CHECK FOR 
NEUTRAL SEIZES THE DRIVE & TAKES IT OUT OF NEUTRAL. 


‘DSC' & ‘ATTN’ DO NOT ASSERT AT THE END OF A TIMEOUT IF THERE 
1S NO PREVIOUS PORT REQUEST MADE. 


THEY WILL ASSERT. HOWEVER, IF A PORT REQUESTED WHILE SEIZED 
1 OTHER PORT & A TIMEOUT OR RELEASE OCCURS ON THE OTHER 


TEST DESCRIPTIONS 


KKKAKAAAAKAAAAAKAA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AAA AAA AA AAA AAAS 
BASIC CONTROLLER TESTS. SIZING & SETUP 
KXKKAKKAAAAARAAAAA AAA AAA AA AAA AAA AAA AAA AAA AAAS AA AA AAA AAA AAA AAAS 


TEST 1 


TEST 2 


TEST 3 





REFERENCE ALL CONTROLLER REGISTERS 


THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 

CAN BE ACCESSED. THE INABILITY TO BE ACCESSED WILL 

RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE. ANY 
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER 

TESTS AND JUMPING TO ‘END OF PACS’ 


SIZE THE BUSS 


THIS TEST 1S ENTERED ONLY IF ‘DRIVE SELECTION’ IS DEFAULTED 
E!THER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 

MANUAL MODE. 

EVERY EVEN NUMBERED DRIVE (0.2.4.6) IS ADDRESSED. 

CONTROLLER ERROR (CERR) 1S EXAMINED AND IF NOT SET, THE 

DRIVE WILL BE TESTED AS AN RKO6. IF SET. THE PROGRAM WILL BYPASS 
TESTING THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF 

MOS, UFE OR NED BEING SET; OR BOTH NED & DORA RESET IN- 

DICATING THE OTHER PORT IS ACCESSED. 

lf CERR DUE TO OTYE. ORIVE WILL BE TESTED AS RKO?. 


VERIFY OPERATOR DRIVE SELECTIONS 


THIS TEST 1S ENTERED ONLY IF DRIVE SELECTION IS NOT 
DEFAULTED. EVERY EVEN NUMBERED ORIVE IS ADDRESSED & 
CONTROLLER ERROR (CERR) 1S EXAMINED. IF NOT SET. THE 
PROGRAM WILL ASSUME THE DRIVE IS PRESENT AS AN RKO6 

IF CERR WAS SET. THAT DRIVE WILL BE BYPASSED 

ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH 
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762 NED & DRA RESET (WRONG PORT). IF CERR 1S A RESULT OF 
762 NED ONLY. !T 1S CHECKED AGAINST THE INPUTTED INFORMATION TO 
764 VERIFY IT WAS. NOT SPECIFIED. 
Ae IF CERR DUE TO DOTYE. ORIVE WILL BE TESTED AS RKO7. 
767 
hy TEST 4 FIND NEXT ORIVE TO BE TESTED 
770 THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
771 ADDRESS IN ‘'SUNIT' & STMPY IS SET TO COT IF DRIVE IS RKO7 
772 THROUGHOUT THE FOLLOWING TESTS, THE ORIVE TESTED IS 
273 THE DRIVE WHOSE ADDRESS IS IN ‘SUNIT' 
oe 
776 
Vic XXKKKAKAAK AKA AAA AA KAA AKA AAA AAA AAA AAA AAA AAA AAA AAA AAA AKA AEE 
778 DUAL PORT TESTS 
oan PTETTTETETTTTETETTTTTTT TET TT TERT TTT TET ET TT TERT TTT TERETE TTT TTT 
os TEST S TEST PORT 'A' SEIZE & TIMEOUT 
783 VERIFY THAT THE DRIVE CAN BE SEIZED & THAT THE PORT 
tal TIMEOUT RELEASES THE DRIVE. 
7 
os A. SET VOLUME VALID FOR BOTH PORTS & DO A RECAL COMMAND 
78 
788 B. A SELECT DRIVE COMMAND IS ISSUED THRU PORT ‘A’. 
789 THE PROGRAM VERIFIES THE DRIVE HAS BEEN SEIZED BY ‘DRIVE 
co AVAILABLE’ SET. 
91 
792 C. A SELECT DRIVE COMMAND IS ISSUED THRU PORT 'B' THE 
793 PROGRAM VERIFIES THAT ‘DRIVE AVAILABLE’ !S NOT SET 
794 FOR PORT 'B' & THAT CERR !S SET 
795 
796 D. VERIFY THAT FOR ALL MESSAGES REQUESTED THRU PORT ‘B'‘. (MSG 
797 AD-AZ, BO-B3) THAT MESSAGE O ALWAYS RETURNS FROM PORT B 
798 WHILE PORT 'A' IS SEIZED 
799 
soo —. WAIT FOR THE PORT TIMEOUT TO OCCUR ON PORT ‘A’ BY 
$01 CONTINUOUSLY CHECKING FOR ATTN ON PORT B. AFTER 
802 ATTN-B IS REC'D. A DRIVE SELECT COMMAND IS ISSUED 
s03 THRU PORT B & "DRIVE AVAILABLE” IS CHECKED TO 
804 BE SET IN MESSAGE AQ. 
80s 
806 MEASURE THE DURATION OF THE TIMEOUT & TYPE THE VALUE 
807 FOR THE FIRST PASS ONLY 
808 
809 F. VERIFY THAT ONLY PORT ‘'B‘ GETS ‘'DSC‘ & ‘ATTN’. 
810 
811 G. VERIFY THE DRIVE CLEAR COMMAND CLEARS ‘DSC’ & ‘ATTN’ 
812 ON PORT 'B' BUT DOES NOT RELEASE THE DRIVE FROM PORT ‘B' 
813 
814 
815 TEST 6 TEST PORT 'B’ SEIZE & TIMEOUT 
816 


817 THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
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818 
819 
ost TEST 7 PRINT ORIVE SERIAL NUMBER 
“ 
822 THIS TEST READS & PRINTS THE DRIVE SERIAL & FROM MSG AZ 
823 IN BCD ON THE 1'ST PASS ONLY. 
824 1T ALSO TESTS THAT THE SERIAL & READ THRU BOTH PORTS 
825 ARE THE SANE. 
827 
828 TEST 10 TEST PORT ‘A’ COMMAND SEIZE & ATTENT.ON 
830 VERIFY THE OPERATION OF ‘OSC’ & ‘ATTN’ BITS AFTER A COMMAND. 
> 
$4. A. ISSUE A SEEK COMMAND TO CYLINDER 10 THRU PORT ‘A’. 
So 
S34 
835 
836 B. VERIFY SEIZURE & THAT ‘DSC’ & ‘ATTN’ SETS FOR PORT ‘A’ 
4 ONLY AFTER THE SEEK HAS COMPLETED. 
to C. VERIFY ‘ATTN’ REMAINS SET BEYOND TIMEOUT 
4 
841 0. VERIFY A DRIVE CLEAR COMMAND RESETS ‘DSC’ & ‘ATTN’ 
| & DOES NOT RELEASE THE ORIVE FROM PORT ‘A’ 
4 
844 
845 ; TEST i1 TEST PORT ‘B' COMMAND SEIZE & ATTENTION 
846 
847 THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
848 BUT THE SEEK 1S TO CYLINDER O 
849 
850 
851 TEST 12 TEST RESET PORT ‘A' ATTENTION BY DRIVE CLEAR COMMAND 
852 
853 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF 
854 THE SEIZING PORT 
sss 
856 A. SET EACH PORT'S ATTENTION BIT BY PERFORMING SEEK 
857 COMMANDS TO CYLINDER O & ALLOWING TIMEOUTS. 
858 
859 B. SEIZE THE ORIVE THRU PORT ‘A’ & ISSUE A DRIVE CLEAR COMMAND 
860 VERIFY THAT ‘OSC’ & ‘ATTN’ FOR PORT ‘A’ HAVE BEEN CLEARED 
861 
862 C. SEIZE THE DRIVE THRU PORT 'B° & VERIFY ‘DSC’ & ‘ATTN’ 
863 HAVE NOT CLEARED 
864 
865 TEST 13 TEST RESET PORT ‘B' ATTENTION BY CRIVE CLEAR COMMAND 
866 
867 THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
868 
869 
870 
871 TEST 14 TEST RELEASE. DRIVE SEIZED BY POPT ‘A’ 
872 


873 A. SEIZE THE ORIVE TH2U PORT ‘A’ 
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ISSUE A RELEASE USING RKCS2 THRU PORT ‘A’ 


VERIFY PORT 'B' CAN ACCESS THE CRIVE IMMEDIATELY & 
THAT NEITHER PORT SEES ‘DSC' OR ‘ATTN 


TEST 15 TEST RELEASE. DRIVE SEIZED BY PORT 'B' 
THE PREVIOUS TEST 1S REPEATED FOR PORT ‘B' 


TEST 16 


TEST 17 


TEST 20 


TEST 21 


TEST RELEASE FROM PORT ‘A’ WITH PORT 'B' REQUESTING 


PORT ‘A’ SEIZES THE DRIVE & DOES A SEEK TO SELF COMMAND. 
THE PROGRAM VERIFIES ‘DSC' & 'ATTN' ON PORT ‘A’ ONLY 
ON COMPLETION 


PORT 'B' TRIES TO ACCESS THE DRIVE. THE PROGRAM VERIFIES 
DRIVE NOT AVAILABLE 


A RELEASE BY PORT ‘A’ IS _ ISSUED. VERIFY PORT ‘'B' CAN 
ACCESS THE DRIVE IMMEDIATELY & THAT ‘DSC’ & ‘ATTN’ 
ARE SEEN ON PORT ‘B' 


VERIFY PORT ‘'A' ‘OSC’ & ‘'ATTN' REMAINS SET AFTER RELEASE 


THE PROGRAM ISSUES A DRIVE CLEAR COMMAND TO PORT '‘B' 
& VERIFIES ‘DSC’ & ‘ATTN’ RESETS. 


THE PROGRAM THEN VERIFIES THAT PORT ‘B‘ DOES NOT SEE 
FURTHER (MULTIPLE) ATTENTIONS FROM WHAT WOULD HAVE BEEN 
NORMAL TIMEOUT FROM PORT ‘A’. 


TEST RELEASE FROM PORT ‘B' WITH PORT ‘A’ REQUESTING 
THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 


TEST RELEASE FROM REQUESTING PORT ‘B' INHIBITS ‘ATTN’ 


Serr 


PORT 'A' SEIZES THE DRIVE 
PORT ‘B' ATTEMPTS TO SEIZE THE DRIVE 
PORT 'B' & PORT ‘A’ RELEASE THE DRIVE. IN THAT ORDER 


THE PROGRAM VERIFIES THAT NEITHER PORT ‘A’ OR ‘B* ATTENTION 


BITS SET 


TEST RELEASE FROM REQUESTING PORT ‘A’ INHIBITS ‘ATTN’ 
THE PREVIOUS TEST IS REPEATED FOR PORT 'B' 


TEST 22 TEST RELEASE BY PORT ‘B' WHEN SEIZED BY PORT ‘A’ 


SEQ 0017 
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VERIFY THAT A RELEASE ISSUED BY ONE PORT IS NOT RECOGNIZED IF 
THE ORIVE IS SE!ZED BY THE OTHER PORT 


A SEIZE THE ORIVE THRU PORT ‘A’. 
B. ISSUE A RELEASE THRU PORT ‘B‘ & VERIFY DRIVE STILL SEIZED 
BY PORT ‘A’. 


TEST 23 TEST RELEASE BY PORT ‘A’ WHEN SEIZED BY PORT ‘B' 
THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
TEST 24 TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE FROM PORT ‘A’ 


A. ISSUE A SEEK COMMAND TO CYL 10 FROM PORT ‘A & 
AN IMMEDIATE RELEASE TO PORT A. 


VERIFY THE DRIVE IS AVAILABLE TO PORT ‘B' 
& PORT 'B' RECEIVES ‘ATTN’ 


VERIFY PORT ‘A’ DOES NOT RAISE ATTN WHEN THE SEEK IS 
COMPLETED. 


TEST 25 COMMAND & IMMEDIATE RELEASE FROM PORT '‘B' 


THE PREVIOUS TEST IS REPEATED FOR PORT 'B' 
BUT THE SEEK IS TO CYLINDER 0. 


TEST 26 TEST TIMEOUT RETRIGGER THRU PORT ‘A’ 
VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED. 
A. PORT 'A' SEIZES THE DRIVE 
B. THE PROGRAM WAITS SOOMS & RE-SEIZES THE DRIVE THRU PORT ‘A’ 
C. PORT 'B’ ATTEMPTS TO SEIZE THE DRIVE & THE 


PROGRAM VERIFIES THAT FULL TIMEOUT TOOK PLACE 
FROM STEP ‘B' ABOVE 


TEST 27 TEST TIMEOUT RETRIGGER THRU PORT ‘B' 
THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 


TEST 30 TEST PORT ‘A’ TIMER INHIBIT 


A. PORT ‘A’ SEIZES THE DRIVE 
B. PORT 'B' ATTEMPTS TO SEIZE THE DRIVE 
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C. PORT 'A' RELEASES THE DRIVE 
D. PORT 'A' ATTEMPTS TO GET THE DRIVE BACK. 


THE PROGRAM VERIFIES THAT PORT ‘A’ CANNOT ACCESS 
THE DRIVE FOR APPROX 1 SEC 


TEST 31 TEST PORT ‘'B' TIMER INHIBIT 
THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 


TEST 32 TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘A’ 
VERIFY THAT THE UNLOAD COMMAND THRU A PORT. SEIZES THAT 
bigs AS LONG HAS HEADS ARE UNLOADED & RELEASE IS NOT 
ISSUED. 


A. ISSUE AN UNLOAD COMMAND THRU PORT ‘A’ 
VERIFY DRIVE UNLOADS & ATTENTION IS SET. 


B. DELAY FOR 5 SECONDS & VERIFY DRIVE 
NOT AVAILABLE TO PORT ‘B' TO INSURE TIMERS INHIBITED. 


C. ISSUE A RELEASE FROM PORT ‘A’. VERIFY DRIVE BECOMES 
AVAILABLE TO PORT ‘6’ 


C. LOAD HEADS FROM PORT 'B’ & VERIFY ‘ATTN-B' AT COMPLETION 


TEST 33 TEST UNLOAD COMMAND TIMER INHIBiT THRU PORT ‘B’ 
THE PREVIOUS TEST 1S REPEATED FOR PORT ‘B' 


TEST 34 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘A’ 
VERIFY THAT THE RECAL COMMAND THRU A PORT. SEIZES THAT 
PORT FOR AS LONG AS THE RECAL IS IN PROGRESS & A 
RELEASE 1S NOT ISSUED 
A. ISSUE A RECAL COMMAND FROM THE LAST CYL THRU PORT ‘A’ 
B. VERIFY PORT 'B' CANNOT SEIZE THE DRIVE UNTIL 
PORT 'A' RECEIVES ATTN. 
THIS INSURES THAT THE T!MERS WERE INHIBITED 
TEST 35 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘B’ 


THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 


TEST 36 READ & SAVE BAD SECTOR INFO & TYPE PACK SEPIAL & 


SEQ 0019 
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1042 
1043 THIS TEST VERIF!ES THAT CYL 632 (1456 FOR RKO7), TRACK 2 CAN BE READ. 
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TEST 37 


TEST 40 


THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE 
FACTORY DURING MANF. ALL BAD SECTOR INFO (BSE) WILL BE STORED 
AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 


SECTORS 0. 2.4.6.8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED 
SECTORS 10,12, 14, 16.18.20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOFTWARE 


IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO 
IT 1S DETERMINED THAT AN ALIGNMENT CARTRIDGE 1S USED, 


A MESSAGE WILL BE TYPED INDICATING THAT ALL 
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 
THIS 1S DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITI 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


DATA TESTS 


VERIFY UNIQUE DATA CAN BE WRITTEN THRU EITHER PORT & READ 
BACK CORRECTLY THRU BOTH PORTS 


A. 


ALL 1°S ARE WRITTEN THRU PORT ‘A’ ON CYL O, SECTOR O, 
TRACK O & VERIFIED BY READING BACK THRU BOTH PORTS. 


ALL 1°S ARE WRITTEN THRU PORT ‘B’ ON CYL 10. SECTOR O, 
TRACK O & VERIFIED BY READING BACK THRU BOTH PORTS. 


THE PROGRAM CHECKS THAT CYL 0 WAS NOT OVERWRITTEN 
BY READING & VERIFING ALL O'S THRU PORT ‘B’. 


ALTERNATING SEEK INTERACTION TEST 


THIS TEST VERIFIES THAT THERE ARE NO TIMING INTERACTION PROBLEMS 
BETWEEN SEEKS FROM BOTH PORTS 


A. 


PORT ‘A’ SE!ZES THE DRIVE & SEEKS TO CYLINDER O & RELEASES 
THE DRIVE AFTER ‘ATTN’ IS RECEIVED 

THE PROGRAM VERIFIES THAT UNTIL ATTN IS REC'D, 

PORT 'B' SEES ‘CONTROLLER ERROR’ & ‘DRIVE NOT AVAILABLE’. 


PORT 'B' SEIZES THE ORIVE & SEEKS TO THE LAST CYL 

& RELEASES THE DRIVE AFTER ‘ATTN’ IS RECEIVED 

THE PROGRAM VERIFIES THAT UNTIL ATTN IS REC'D. 

PORT 'A' SEES ‘CONTROLLER ERROR’ & ‘'ORIVE NOT AVAILABLE’. 


THE ABOVE IS REPEATED FOR A PATTERN OF CONVERGING SEEKS 
TOWARD THE CENTER OF THE CARTRIDGE. 


THE PROGRAM VERIFIES MULTIPLE ATTENTIONS OR ERRORS 
DO NOT OCCUR AS A RESULT OF TIMING PROBLEMS. 


ERROR REPORTING 
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6. 1 ERROR INTERPRETATION 
WHENEVER AN ERROR MESSAGE 1S PRINTED OUT. ALL REGISTERS 
AND OTHER DATA PERTAINING TO THE ERROR ARE ALSO GIVEN. 
MSG A(OO), MSG B(01), RKER. RKBA... ETC. INDICATE THE 
CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME OF 
ERROR. 
EVERY ERROR MESSAGE CONTAINS A PC. THIS PC INDICATES THE 
POS!TION IN PROGRAM WHERE THE ERROR CALL IS LOCATED. THE 
ERROR MESSAGE, BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE 
SHORT AND MEANINGFUL. THE USER IS ADVISED TO LOOK UP THE 
PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE INFORMATION 
ABOUT THE ERROR. IN MANY INSTANCES, A SINGLE FAULT WILL 
GIVE RISE TO MORE THAN ONE ERROR REPORT. A LITTLE DELIBERATION 
AND CAREFUL EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY 
VERY HELPFUL IN PINPOINTING THE FAULT. A BRIEF EXPLANATION 
OF WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT THE 
BEGINNING OF EVERY TEST. ALL THE NUMBERS GIVEN WITH ERROR 
MESSAGES ARE IN OCTAL. 

NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVi DED 

6.2 ERROR PRINTOUT EXAMPLE: 
MESSAGE AD ERROR 
AFTER START SPINDLE CMD & FWD SET 

TEST NO. PC 
000014 016530 

EXPECT 

AO BO Al Bi A2 B2 BS 

030144 100000 013704 000001 
ACTUAL 

140144 100000 101744 000001 

RKCS1 RKCS2 RKASOF RKER RKDS RKOC 

040200 000100 010000 900000 900000 00000 
THE ABOVE EXAMPLE SHOWS es & ACTUAL DATA FOR 
MESSAGE REGISTERS AC. BO. Al & Bi. 
MESSAGES 92, B2 & B3 WILL BE TYPED OUT ONLY AS REQUIRED iF 
THE CYL'NDER DIFFERENCE /OFFSET. CYL!NDER ADDRESS & 
HEAD & SECTOR INFORMATION IS A VARIABLE PARAMETER OF THE 
TEST. 

70 DUAL PROCESSOR-DUAL CONTROLLER TESTING 
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THIS PROGRAM AS DESCRIBED, TESTS THRU A SINGLE CPU & RK611 
IN A SYNCHRONOUS MANNER. 


TO RUN IN A DYNAMIC MANNER, |.€.: DUAL CPU/CUAL RK611 
WITH BOTH PORTS CONTENDING FOR THE DRIVE ASYNCHRONOUSLY. 
THE FOLLOWING PROGRAMS SHOULD BE USED: 


DZR6M SUBSYSTEM VERIFICATION PART 1 TEST 22 
DZR6P PERFORMANCE EXERSICER 


EACH OF THE ABOVE PROGRAMS REQUIRES A SPECIAL STARTING ADDRESS 
TO ENTER THE DUAL PORT TESTING MODE. 


TEST 22 IN THE SUBSYSTEM VERIFICATION PROGRAM CAN BE SET UP 

SO THAT ONE PORT BECOMES THE WRITER OF A SPECIFIED DATA PATTERN 
OVER A SPECIFIED RANGE OF HEADS & CYLINDERS. WHILE THE 

OTHER PORT BECOMES THE READER. 

THE ROLES OF EACH PORT CAN THEN BE REVERSED THRU ANOTHER SETUP. 


THERE ARE MANY POSSIBLE WAYS OF DYNAMICALLY TESTING DUAL 
PORT BY THE ABOVE TEST. 
THE OPERATOR 1S URGED TO READ THE PROGRAM DOCUMENT. 


THE PERFORMANCE EXERCISER SHOULD BE USED TO RANDOMLY 
TEST ALL POSSIBLE DUAL PORT OPERATIONS 
THIS PROGRAM WILL MOST SIMULATE ACTUAL ON-LINE DUAL PORT OPERATION. 
THE OPERATOR 1S URGED TO READ THE PROGRAM DOCUMENT 
END OF SPECIFICATION 
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167400 
000001 


+ BEX PGM REV O30 £a% 
+ 24-SEP-77 PATCH ALL ERROR LOGS 


.NLIST CND. MC. MD 
ME 


. LIST 

.ENABL ABS. ANA 

+DEF INE SYSMAC MACROS 

SSWR= 167400 DEFINE SWITCHES 15,14,13.11,.10,9.8 
STN= 1 ;SET FIRST (EST NO. TO 1 


. TITLE UNIBUS RKO6-RKO7? DUAL PORT DRIVE DIAGNOSTIC 
+ ECOPYRIGHT (C) 1976, 1977 

*801GITAL EQUIPMENT CORP. — 

; MAYNARD, MASS. 01754 


;% 

;*PROGRAN BY GARY PAPAZIAN 

P| 

;XTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
, ¥PACKAGE (MAINDEC-11-DZQAC-C3)- JAN 19. 1977. 

;x 


SBTTL OPERATIONAL SWITCH SETTINGS 
,& 


> SWITCH USE 

7 -— serene 8 8 8 BOR OURER OSS eeRREaNeS 

i 15 HALT ON ERROR 

* _ 14 LOOP ON TEST 

i* ae F | INHIBIT ERROR TYPEOUTS 

mS 12 ABORT DRIVE AFTER 20 ERRORS 
;* 11 INHIBIT ITERATIONS 

;* 10 BELL ON ERROR- 

oe 9 LOOP ON ERROR 

it 8 LOOP ON TEST IN SWP<7: > 


SBTTL SUMMARY OF STARTING LOCATIONS 


3H 
32 
is 200 DEFAULT PARAMETERS 
| 220 INPUT PARAMETERS 
Pa 246 ooT11 
: é 


SEQ 0024 
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+344 .SBTTL BASIC DEFINITIONS 

1233 +KINITIAL ADDRESS OF THE STACK POINTER 44% 1100 £22 
1234 001100 STACK= 1100 

1235 . EQUIV EMT. ERROR ++BASIC DEFINITION OF ERROR CALL 
iy .EQUIV 10T, SCOPE +>BASIC DEFINITION OF SCOPE CALL 
1238 a DEFINITIONS 

1239 000011 HT= CODE FOR HORIZONTAL TAB 
1240 000012 LF= 12 3; CODE FOR LINE FEED 

1241 000015 CR= 15 ++CODE FOR CARRIAGE RETURN 
1242 000200 CRLF= 200 ++CODE FOR CARRIAGE RETURN-LINE FEED j 
1243 177776 PS= 177776 +; PROCESSOR STATUS WORD 
1244 .EQUIV PS. PSW 

1245 177774 STKLMT= 177774 7; STACK LIMIT REGISTER 

1246 177772 PIRQ= 177772 ++PROGRAM INTERRUPT REQUEST REGISTER 
1247 177570 DSWR= 177570 ++ HARDWARE SWITCH REGISTER 
ta 177570 ODISP= 177570 >; HARDWARE DISPLAY REGISTER 
1 

1250 ;XGENERAL PURPOSE REGISTER DEFINITIONS 

1251 co0600 RO= %0 ++GENERAL REGISTER 

1252 000001 Ri= “1 ++ GENERAL REGISTER 

1253 000002 z= %2 ;>GENERAL REGISTER 

1254 000003 R3= %3 ++ GENERAL REGISTER 

1255 000004 R4= %4 ++ GENERAL REGISTER 

1256 000005 RS= %§ +;GENERAL REGISTER 

1257 oo0006 Ro= %6 ++ GENERAL REGISTER 

1258 000007 R7= %7 +; GENERAL REGISTER 

1259 000006 SP= %6 2+ STACK POINTER 

to 000007 PC= %7 +; PROGRAM COUNTER 

1261 

1262 ;¥PRIORITY LEVEL DEFINITIONS 

1263 000000 PRO= 9 +s PRIORITY LEVEL 0 

1264 oooo4o PRi= 40 >;PRIORITY LEVEL 1 

1265 000100 PR2= 100 s-PRIORITY LEVEL 2 

1266 000140 PR3= 140 ;-PRIORITY LEVEL 3 

1267 600200 PR4= 209 >; PRIORITY LEVEL 4 

1268 000240 PR5= 240 77PRIORITY LEVEL 5 

1269 000300 PR6= 300 >;PRIORITY LEVEL 6 

1270 000340 PR7= 340 7;PRIORITY LEVEL 7 

127i 

1272 "SWITCH REGISTER" SWITCH DEFINITIONS 

1273 100090 SWi5= 100000 

1274 040000 SWi4= 40000 

1275 020000 SW13= 20000 

1276 010000 SWiZ2= 10000 

1277 004000 SWi1= 4000 

1278 002000 SWi0= 2000 

1279 001000 SWO9= 1000 

1280 000400 SWO8= 400 

1281 000200 SWO7= 200 

1282 000100 SWO6= 100 

1283 000040 SWOS= 40 

1284 006920 SWO4= 20 

1285 000010 SWO3= 10 


1286 000004 SWO2= 4% 
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100000 
040000 
020000 
010000 
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BASIC DEFINITIONS 


Equiv 


+ SBASIC 
ERRVEC= 
RESVEC= 
TBITVEC 


TRTIVEC= 14 


B1TO9.61T9 
BiTO8. BITS 
B1T07.B1T7 
BITO6. BITe 
B1TOS. BITS 
BITO4,.BIT4 
BiTO3.B1T3 
BiTO2,B1T2 
B:T01.B1T1 
BITOG. BITC 


“CPU" TRAP VECTOR ADDRESSES 


—- £ 
oO 


214 73"T" BIT 


7 TIME OUT AND OTHER ERRORS 
+ RESERVED AND iL LEGAL INSTRUCTIONS 


BPTVEC= 14% 
10TVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAP VEC=34 
TKVEC= 606 
TPVEC= 64 
PIRQVEC=240 


SBTTL RPKOG CONTPOLLEP 


>; BREAKPOINT TRAP (SPT) 

>. INPUT/OUTPUT TRAP (IOT) 8aSCGPESs 
;;POWER FAIL 

>; EMULATOR TRAP (ENT) *SERPOR SS 

72 "TRAP" TRAP 

7; TTY KEYBOARD VECTOR 

>; TTY PRINTER VECTOR 

>; PROGRAM INTERPFUPT PEQUEST WECTOR 


REGISTER DEFINITION 


SEQ 0026 cs 
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000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000024 
000026 
000034 
000036 
000030 
000032 


000001 
000003 
000005 
000007 
000011 


000031 


000001 
000100 
000200 
000400 
001000 
002090 
004000 
010000 
020000 
040000 
100000 
100000 


000007 
006010 
000020 
000040 


‘ 


RKCS1= 


RKECPS= 
RKECP I= 


. SBTTL 


SELORV= 


WRTCHK= 


GO= 
1E= 
RDY= 


S 
ian) 
mJ 
D 
7% 
i) 


DRVMSK= 
RLS= 
BAI= 
SCLR= 


~ "RKG6 CONTROLLER RESISTER DEFINITION 


SBASE=177440 





CONTROL AND STATUS REGISTER 1 
;WORD COUNT REGISTER 

BUS ADDRESS REGISTER 

DESIRED TRACK SECTOR REGISTER 

+ CONTROL AND STATUS REGISTER 2 

DRIVE STATUS REGISTER 

ERROR REGISTER 

; ATTENTION SUMMARY AND OFFSET REGISTER 
DESIRED CYLINDER REGISTER 

;DATA BUFFER 

;MAINTENANCE REGISTER 1 

+MAINTENANCE REGISTER 2 (MESSAGE LINE A) 
;MAINTENANCE REGISTER 3 (MESSAGE LINE B) 
ECC POSITION INFORMATION 

ECC PATTERN INFORMATION 





CONTROL AND STATUS REGISTER 1 BITS (RKCS1: 0) 


DRIVE COMMANDS 


>SELECT ORIVE (GET STATUS) 
;PACK ACKNOWLEDGE 

>ORIVE CLEAR 

; UNLOAD 

; START SPINDLE 

*RECAL IBRATE 


S$ 

READ DATA 

;WRITE DATA 

+READ HEADER 

;WRITE HEADER AND DATA 
+WRITE CHECK 


GO BiT 

+ INTERRUPT ENABLE 

CONTROLLER READY 

>BUS ADDRESS BIT 16 

*BUS ADORESS BIT 17 

CONTROLLER DRIVE TYPE (O=RKO6. 1=RKO7) 

+ CONTROLLER TIMEOUT 

; CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 
;SERCON PARITY ERROR DETECTED BY CONTROLLER 
DRIVE INTERRUPT 

CONTROLLER ERROR 

CONTROLLER CLEAR 


CONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 


;MASK FOR DRIVE SELECTION CODE 

;DESELECT OR RELEASE ORIVE IN BITS 0-2 
*>BUS ADDRESS INCREMENT INHIBIT 

>; SUBSYSTEM CLEAR CONTROLLER AND ALL DR'VES 
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000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 


100000 


000001 


000004 
000010 
000020 
000040 
000100 
000200 
000400 
004000 
020090 
040000 
100000 


000017 
000020 
000040 
000100 
000200 
006400 
001000 
002000 


MACY11 30(1046) 


C 6S 
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CONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 


IR= 
OR= 
UFE= 


o 
4H 
o 


+ INPUT READY 

OUTPUT READY 

+UNIT FIELD ERROR 
+MULTIPLE DRIVE SELECT 
+ PROGRAMMING ERROR 
+NON-EXISTENT MEMORY 
+;NON-EXISTENT DRIVE 

+ UNIBUS PARITY ERROR 
+WRITE CHECK ERROR 
+DATA LATE ERROR 


REGISTER BIT DEFINITION CRKER: 14) 


+ ILLEGAL FUNCTION CODE 

+ SEEK INCOMPLETE 

;NON-EXECUTABLE FUNCTION 

DRIVE DETECTED SERCON PARITY ERROR 
;FORMAT ERROR 

DRIVE TYPE ERROR 

ECC HARD 

+BAD SECTOR ERROR 

+HEADER VRC ERROR 

CYLINDER ADDRESS OVERFLOW ERROR 

+ INVALID DISK ADDRESS ERROR: HEAD/CYL 
;WRITE LOCK ERROR 

;DRIVE TIMING ERROR 

OPERATION (SEARCH) INCOMPLETE 

+ DRIVE UNSAFE 

+DATA CHECK 


STATUS REGISTER BIT DEFINITION (RKDS: 12) 


DRIVE AVAILABLE ‘CONTROLLER IS SET IF 
; THIS BIT IS RESET) 
DRIVE OFFSET 

AC LOW 

*DC LOW 

*DRIVE OFF TRACK 

+ VOLUME VALID 

DRIVE READY 

DRIVE TYPE (O=RKO6, 1=RKO7) 
*WRITE LOCK 

;POSITIONING IN PROGRESS 
DRIVE STATUS CHANGE 

+ STATUS VALID 


MAINTENANCE REGISTER 1 BIT DEFINITION (RKMRI1: 22) 


MESSAGE MASK 

;FORCE EVEN PARITY ON SERCON MESSAGE LINES 
+DIAGNOSTIC MODE 

MAINTENANCE SECTOR PULSE 

;MAINTENANCE INDEX 

*MAINTENANCE CLOCK 

;MAINTENANCE ENCODED READ DATA 
;MAINTENANCE ENCODED WRITE DATA 


SEQ 0028 
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1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1465 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
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004000 
010000 
020000 
040000 
100000 


000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 


000920 
000040 
006100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 


OOU040 
000100 
090200 
000400 
001000 
002000 
004000 
010090 
020000 
040000 


000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 


0 3 
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MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1: 22) 


PCA= 
PCD= 
ECCW= 
WRTGAT= 
ROGATE= 


. SBTTL 


ovo9v9o999r929°9 
wn 
v 
So 
x 
1) 


ooo9ve9s9r9°o 
~v 
D 
x 
iT] 


[9909909009 
» 
Oo 
nm 
- 
w 


BiTit + PRECOMPENSAT | ON ~ 1 pe 

BITi2 ;PRECOMPENSATION DELA 

BIT13 ;ECC WORD 1S BEING READ OR WRITTEN 
BITi4 +WRITE GATE 

BiT15 +READ GATE 

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A (RKMRZ: 34) 
BITS DRIVE AVAILABLE 

BITé ; VOLUME VALID 

BIT? DRIVE READY 

BITs DRIVE TYPE - RKO6, 1=RKO7) 
BiT9 ;ORIVE FORMA 

BIT10 + OFFSET ON 

BiTi1 +WRITE LOCK 

BIT12 + SPINDLE ON 

BIT13 >POSITIONING IN PROGRESS 

BITi4 DRIVE STATUS CHANGE 

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A (RKMR2: 34) 
BIT4 SERVO SIG PRESENT 

BITS HEADS HOME 

BITé + BRUSHES HOME 

BIT? >DOOR INTERLOCKED 

BITS +CARTRAGE INTERLOCK 

BITS SPEED OK 

BiT10 + FORWARD 

BiTi1 + REVERSE 

BIT12 *HEADS LOADING 

BiT13 RETURN TO ZERO 

BITi4 +HEADS UNLOADING 

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B (RKMR3: 36) 
BITS + INVALID DISK ADDRESS ERROR: HEAD/€ YL 
BiTé 7AC LOW 

BIT? DRIVE FAULT 

BITS + ILLEGAL FUNCTION CODE 

BIT9 DRIVE DETECTED SERCON PARITY ERROR 
BiT10 SEEK INCOMPLETE 

BiTii 7*WRITE LOCK ERROR 

BiTi2 + SPEED LOSS 

BIT13 DRIVE OFF TRACK 

BiTi4 *R/W UNSAFE 

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B ‘PKMR3: 36) 
BIT4 SECTOR ERROR 

BITS ;WRITE CURRENT AND NO WRITE GATE 
BIT6 ;WRITE GATE AND NO TRANSISTIONS 
BIT? *HEAD FAULT 

BITS *MULTIPLE HEAD SELECT 

BIT9 + INDEX ERROR 

BIT10 ;TRIBIT ERROR 

BiTit *PLO ERROR 


SEQ 0029 | 
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OZR6GA. P11 29-SEP-77 09: 55 DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B (RKMR3: 36) 
1511 010000 D. NMOV= BIT12 +; SEEK AND NO MOTION 
1512 020000 D.LIMD= BIT13 LIMIT DETECT ON SEEK 
StS 040000 D. SUNS= BIT14 + SERVO UNSAFE . 
1514 
ph .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2: 34) 
151 
1517 000007 M.ORV= 7 DRIVE CODE, ALL BYTES 
te 077770 M.SER= 77770 /DRIVE SERIAL &, BYTE 11 
1519 
eae .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
1521 
1522 000003 M.1D= 3 +BYTE 10. ALL BYTES 
1523 04C000 M. ALGN= BIT14 ;ALIGN SIGN. BYTE 10 
1924 000760 M. SECT= 760 SECTOR COUNT. BYTE 11 
1625 007000 M. HEAD= 7000 +HEAD DECODE, BYTE 11 


1S2e 100000 M.PAR= BIT15 ;PARITY, MESS A/B. ALi BYTES 


/ 
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000174 
000176 


000200 
000220 


B0C240 


000046 
000052 


000024 
000044 


001000 
001000 
001002 
001004 
001006 
001010 
001012 
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000000 


000174 
000000 
000000 


000137 
000220 
000137 


000240 
000137 


OOCZ44 
000046 
042772 
000052 
100000 
000244 
001000 


001000 
000024 
000200 
000044 
001000 
001000 


000000 
001210 
0004 30 
001130 
001130 
000042 


010050 
010040 


067302 


COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
.SBTTL TRAP CATCHER 


. 20 
+ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A". +2, HALT" 
+ SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
+ KLOCATION ; CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


, 4 
DISPREG: .WORD O ++ SOFTWARE DISPLAY REGISTER 
SWREG: WORD O ++ SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

JMP O@#START ;; JUMP TO STARTING ADDRESS OF PROGRAM 


. =220 

JMP PARSRT ; INPUT PARAMETERS 
. =240 

JMP 0. ODOT >ENTER OOT11 


.SBTTL ACT11 HOOKS 


re $25 09999% 099552995599 900 0905909590255 0295922990299 02228 0 29d 9 8 0 | 
>HOOKS REQUIRED BY ACTI1 


an ; SAVE PC 

4 

—s >;1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
"WORD 100000 ;2)SET LOC. 52 TO 100000 

. =$Surc ++ RESTORE PC 


. 1000 
.SBTTL APT PARAMETER BLOCK 


5p MAAKKKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAI AAA AAA AAAS 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PET eTetetsitttiettitetttt ttt itt ttt tet t itt ttittit siti ts tte t sitet! 


. X=. +; SAVE CURRENT LOCATION 


=24 ;:SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ?,FOR APT START UP 
=4y ;;POINT TO APT INDIRECT ADDRESS PNTR 


SAPTHOR ;;POINT TO APT HEADER BLOCK 


=. $X 


+;RESET LOCATION COUNTER 


etttctsttttttststttstttttttststtstetste ttt eesseesseess tees s see! 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAP THD: 

SHIBTS: .WORD 0 +;>TWO HIGH BITS OF 18 BIT MAILBOX ADDR 

SMBADR: .WORD SHAIL +; ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 280. >;>RUN TIM OF LONGEST TEST 

SPASTM: .WORD 600. ;;RUN TIME IN SECS. OF 1ST PASS ON i UNIT (QUICK VERIFY) 

SUNITM: . WORD 600. +; ADD I TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
-WORD SETEND-SMAIL/2 =; LENGTH MAILBOX-ETABLE (WORDS) 
LIST 0 


<n 
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APT PARAMETER BLOCK 
+USE LOOP X TO OMIT SUBCLR 


, 


MACRO LOOP A 
SCOP 1 


MOV #STACK., SP RESTORE STK PTR 
7 B A 

JSR PC, SUBCLR 

ERROR 24 +CERR AFTER SCLR 
. ENDC 
.ENDM LOOP 


SEQ 0032 


; THIS MACRO FILLS EXPECTED MSG AO. BC. Al. B1. AZ, B2 & B3 WITH STANDARD BITS 


>A=D0.0SC AFTER ATTN OR O AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 
>NOTE: A CAN BE ANY BIT COMBINATION DESIRED & INCLUDES D. DRA 


“MACRO F.ERB A 
Mov #<A'D. SPIN'D. ORDY!D. VV>,E. AO ; EXPECTED MSG AO 


CLR —. 80 ; EXPECTED MSG BO 
MoV #<9. SPOK!D. CART !D. DOOR 'D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
MoV #1,€.B1 MSG ID FOR EXPECTED MSG B1 
CLR E. AZ ; EXPECTED MSG AZ 
MOV #2.€. 82 -MSG 1D FOR EXPECTED MSG B2 
MOV #3,-€. B3 -MSG 10 FOR EXPECTED MSG B3 
ENDM F. ERB 
“THIS MACRO ASSUMES DRIVE MSG AD. BO. Al. B1 WILL ALWAYS BE TESTED 
SUSE A.C.D.E FOR MSG AD. BO. Al, Bl ERROR NUMBERS RESP 
» USE G=T.AZ2 TO READ MSG AZ & PUT INFO INTO ‘CYLDIF' 
H=T.B2 TO READ MSG B2 & PUT INFO INTO ‘CYLADD' 
is 


1. B3 TO READ MSG B2 & PUT INFO INTO ‘SECTOR’ & ‘HEADA’ 
[USE - F=<ERROR DESCRIPTIOND 
“MACRO CHECK @.C.0D-E-F-G-H-1 


JSR PC, CHKMSG >CHECK MSGS AO. BO. Al. Bi 
.WORD = G!H'I 7& MSGS SPECIFIED HERE 
ERROR A MSG AD ERROR F 
ERROR C *>MSH BO ERROR 
ERROR 0 :MSG Al ERROR 
ERROR €E /MSG Bi ERROR 

-ENDM CHECK 


AZCYL DIFF/OFFSET ERROR # 
B=CYL ADDR ERROR # 
C=<ERROR DESCRIPTION) 


“MACRO CWO2 = ABC 20. 7 
NOV #2, RKMRIORS) 


| 


ao ne eH 
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LNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(104%6) 29-SEP-77 10:08 PAGE 33 SEQ 0033 
DZROGA. P11 29-SEP-77 09: 55 APT PARAMETER BLOCK 


1639 JSR PC, GSTAT 

1640 TST CYLDIF +SEE IF MSG A2=0 

1641 BEQ D 7BR IF Y 

1642 ERROR A ; MSG AZ NOT CLEARED C 

16423 D: TST CYLADD +SEE IF MSG B2=0 

1644 BEQ E ;BR IF YES 

1645 ERROR B +MSG B2 NOT CLEARED C 

1646 E: 

1647 .ENDM CWD2 

1648 

1649 . MACRO het B 

1650 F.EAB <D. ORA'B> 

1651 CHECK 165, 166, 167,170, <AFTER TIMEOUT>,0,0,0 

1652 .ENOM STDER1 

1653 

1654 .MACRO STODERZ2 B 

1055 F.EAB <D. ORA'B> 

1656 CHECK 211,212,213,214. <AFTER RELEASE ISSUED>,0,0,0 
1657 .ENDM STDERZ 

1658 

1659 

1660 .MACRG ORCLR C,7A 

1661 

1662 MoV #CCLR, RKCS1(R5) 

1663 MOV SUNIT,.RKCS2(R5) ; DRIVER 

1664 ADD UNITB.-RKCS2(R5) ;ADD 1 IF ON PORT B 

1665 MOV #CLEAR, HCS1 

1666 JSR PC, DOCMD DO DRIVE CLEAR CMD & GET CONTR RDY 
1667 ERROR 151 NO RDY AFTER ORIVE CLEAR CMD 
1668 JSR PC, TSTATN ; TEST FOR ATTN 

1669 BR A 

1670 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
1671 A 

1672 . B C 

1673 F.EAB 0. DRA 

1674 CHECK 33,34,35,.36.<AFTER DRV CLEAR CMD>,T. A2,T. B2,0 
1675 . ENDC , 

167 

1677 .ENDM ORCLR 

1078 

1679 

1680 ; 

1681 USE CALIB KX TO OMIT CHECKING MSGS AD. BO, Al, B1. A2 & B2 
1682 ; 

1683 .MACRO CALIB A, 7C 

1684 

1685 MoV #CCLR, RKCS1(R5) 

1686 MoV SUNIT, RKCS2(R5) 

1687 ADD UNITB,RKCS2(R5) ; ADD 1 IF ON PORT B 

1688 MoV #RECAL, HCS1 

1689 JSR PC, DOCND DO RECAL CMD & GET CONTR ROY 
1690 ERROR 124 *RDY NOT SET AFTER RECAL CMO 
1691 

1692 MOV #1,RKMRICRS) >SELECT WORD 1 

1693 JSR PC, GSTAT 


1694 BIT #0. RTZ, HMR2 
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1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
173% 
1735 
1736 
173? 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 


i ¢ 
MACY11 30(1046) 29-SEP- 


APT PARAMETER BLOCK 


IF B 


. ENDC 


.ENDM CALIB 


70 

T10, TEMP2 
PC, FATTI 
55 


<D. DSC !D. DRA> 


77 «10:08 PAGE 34 


+RTZ NOT SET _ RECAL CMD 
+ SETUP TIMEOUT 

FIND ATTN 

;NO ATTN AFTER RECAL CMO 


221, 66, 222,67, <AFTER RECAL CMO>, T. AZ. T. 82. T. B3 
47,50, <AFTER RECAL CMD> 


[QUICK START SPINDLE 


“MACRO QKSRT 


JSR 
ERROR 


.ENDM = =QKSRT 


PC, SUBCLR 
24 


#SRTSPL, HCS1 
PC. DOCMD 

12i 

T7100, TEMP2 
PC, FATTI 

74 


UNLO 


 ASWRHEAD/<CFMT!WRHEAD> 


> USE WRHOR 
“MACRO WRHOR 


.ENDM  WRHOP 


<A>,X TO OMIT 
A.C, 20 


#<A>, HCS1 
PC, DATCMD 


200 
PC, GSTAT 
eens 


201 
-MSG21 
SEOP 


*>CERR AFTER SCLR 


D0 START SPINDLE CMD & GET CONTR RDY 
>RDY NOT SET AFTER ST SPIN CMD 


;SETUP TIMEOUT 
7>F IND ATTN 
>NO ATTN AFTER ST SPIN CMD 


CHECKING AQ, BO. Al & Bi 


>DO DATA X FOR CMD & GET CONTR RDY 
;NO ROY AFTER WRITE HEADER CMO 
GET FRESH STATUS 


>CERR AFTER WRITE HEADER CMO 
;ABORTING BALANCE OF TESTS 


D. DRA 
37,40,41,42, <AFTER WRITE HEADER CMD>.9.0,0 


SEQ 0034 
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1751 

1752 ; } 

1753 ; R=RDHEAD/<CFMT!RDOHEAD> 

ae ;USE RDHDR <A>,.X TO OMIT CHECKING AO, BO, Al. B1 

1756 . MACRO RDHOR A.C, 7D, 7E 

1757 

1758 MOV #RHTAB, RO 

1759 MOV #<A>, HCS1 

1760 JSR PC, DATCND ;DO DATA X FOR CMD & GET CONTR RDY 
1761 ERROR 171 ;NO RDY AFTER READ HEADER CMD 
1762 BIT #CERR, HCS1 

1763 BEQ D 

fhe ERROR 174 ;CERR AFTER READ HEADER CMD 
176 

1766 D: MOV RKDB(RS). (RO)+ ¢1'ST WORD FROM SILO TO RHTAB 
1767 MoV RKDB(RS). (RO)+ + 2'ND WORD 

1768 Mov RKDB(RS). (RG)+ ¢3'RD WORD 

1769 

1770 

1771 BIT #OLT, RKCSZ(R5) 

1772 BEQ E 

1773 JSR PC, GSTAT 

1774 ERROR 173 ;OLT AFTER READ HEADER CMD 
1775 E: 

1776 _ IF 8 il 

1777 F. EAB D. DRA 

1778 CHECK 301,271,302, 272. <AFTER READ HEADER CMD>,T. AZ. T. B2,0 
1779 . ENDC 

1780 

1781 . ENOM RDHOR 

1782 

1783 

1784 .MACRO HDCHK3 7A 

1785 

1786 RDHDR ROHEAD 

1787 CMP RHTAB, TOCYL ; CHECK WORD O ONLY, CYL# 
1788 BEQ A ;BR IF SAME 

1789 ERROR 51 >WRONG CYL# ON HEADER 

1790 A 

1791 

1792 ~ENDM HDCHK3 

1793 

1794 ; 

1795 ; AM=TOCYL/FRCYL . B=HEAD#. C = O FOR 22 SECTOR. 1 FOR 20 SECTOR 
1796 ; 

1797 .MACRO HOTBL A. B.C 

1798 

1799 MOV A, CALADD > SETUP 

1800 MoV #B. HEAD ;TO FILL 

1801 MoV #C, FORMAT > HEADER 

1802 JSR PC, FHDTAB > TABLE 

1803 

1804 -ENOM HOTBL 

1805 


1806 
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APT PARAMETER BLOCK 


;QUICK SEEK. 

“MACRO QKSEEK 
Nov 
JSR 
ERROR 


.ENDM QKSEEK 


ENTER WITH CYL# IN RKOC 


7A 

#SEEK, HCS1 

PC, DOCMD +DO SEEK CMD & GET CONTR READY 
i341 +NO RDY AFTER SEEK CHD 

T50000, TEMP 1 + SETUP TIMEOUT 

PC, FATTZ +FIND ATTN 

132 +NO ATTN AFTER SEEK CMD 
emeens: 

210 +CERR AFTER SEEK CMD 


<D. DSC 'D. DRA> 
161, 162, 163, 164. <AFTER SEEK CMD>,0,0,0 


; R=WRDATA/<CFMT!WROATA> 

;C=ADDR TO JMP TO ATTEMPT TO WRITE ON ANOTHER SECTOR 

>D=ADDR TO JMP TO BYPASS TEST 

>E: IF BLANK WILL CHECK AO. BO. Al & B1 AT THE END OF WRITING 
-E: iF NON BLANK WILL OMIT CHECKING AO THRU B1 


_MACRO WDATA 


A.C.D-E. 2F. 7G, 7H, 71 
#<A>. HCS1 
PC. DATCMD ‘DO DATA X FOR CMD & GET CONTR ROY 
11 >NO ROY AFTER WRITE DATA CMO 
PC, GSTAT GET FRESH STATUS 
SCERR, HCS1 
| >BR IF NO ERRORS 
“‘Yonchere 4. 1F - SECTOR FLAG 
F 

PC, TRUERR 7 ELSE SEE IF SECTOR LISTEO IN BSE TABLE 
H RETURN HERE IF NO 
SECTOR RETURN HERE IF YES 
 pleectaiees aye ah vemee: SECTORS BAD 
46 ; ABORT ING TEST DETECTED 10 BAD SECTORS 
0 +BYPASS TEST 

RCCLR.RKCS1(RS) ; TRY ANOTHER SECTOR 
C 

ae -CERR WITH WRITE DATA CMD 
D. ORA 
52. 23,53, 25, “AFTER WRITE DATA CMD>,T. A2.T.B2.0 
ys a ;ABORTING BALANCE OF TESTS 

E 


SEQ 0036 
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cor . ERROR 43 ;BAD SECTOR NOT LISTED IN TRBLE 
1865 4 8 

1866 F.EAB OD ORA 

1867 CHECK 62, 23,53, 25. <AFTER WRITE DATA CND>.T. AZ. T. 62.0 
1868 . ENOC 

1869 .ENDM WODATA 

1870 

1871 

1872 ; 

1873 , A=RDDATA/<CF MNT! RODATA> 

+ oi ;USE RDATA <A>,.X TO OMIT CHECKING AO, BO. Al & B1 

1876 

1877 .MACRO RDATA A.C, 70, 7E. 2F. 7G, 7H 

1875 

1879 MoV #<A>, HCS1 

1880 JSR PC, DATCND ;DO DATA X FOR CMD & GET CONTR RDY 
1881 ERROR 13 ;NO RDY AFTER READ DATA CMD 
1882 JSR PC, GSTAT +GET FRESH STATUS 

1883 BIT #CERR.HCS1 

1884 BEQ G 

1885 BIT #BSE. HER ,SEE IF BAD SECTOR 

1886 BEQ E 

1887 ERROR 65 ;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 
1888 BR H 

1889 

1890 E BIT #DCK, HER ;SEE IF DATA CHECK ERROR 

1891 BEQ F 

1892 ERROR 21 ;DATA CHECK ERROR AFTER READ CMD (ECC) 
18923 BR H 

1894 

1895 F- ERROR 14 ;CERR AFTER READ DATA CMD 
1896 

1897 H F.EAB O0.ORA 

1898 CHECK 54, 26,56, 30. <AFTER READ DATA CMD>.T. A2. 7. 62.0 
1899 TYPE -MSG21 ;ABORTING BAL OF TESTS 

1900 JMP SEOP 

1901 G: 

1902 iF 8 

1903 F.EAB OD.ORA 

1904 CHECK 54, 26.56.30. <AFTER READ DATA CMD>.T. A2-T. 82.0 
1905 _ ENOC 

1906 ENDM RDATA 

1907 

1908 

1909 ; 

1910 >; ASWRTICHK/<CFMT !WRTCHK> 

1911 ;C=EXPECTED DATA FOR TYPEOUT 

1912 ;USE WRCHK <A>, DATAG. X TO OMIT CHECKING AD. BO. Al & Bi 
1913 ; 

1914 

1915 MACRO WRCHK  A.C,.D. 7E. 7F 

1916 

1917 MoV #<A>- HCS1 


1918 JSR PC, DATCHD DO DATA X FOR CMD & GET CONTR PDY 
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. MACRO 


SEOP 1: 
. ENDM 


. MACRO 


A 
. ENDM 


mM 3 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 38 
T PARAMETER BLOCK 


WRCHK 


EOPGN 


SCOPE 
EOPGM 


QKPACK 
MOV 


QKPACK 


15 NO ROY AFTER WRITE CHECK CMD 
PC, GSTAT :GET FRESH STATUS 

‘epee. 

Manteca +SEE IF WRITE CHECK ERROR 

RKOB (RS), WO1 ACTUAL WORD FOR PRINTOUT 

C,WO2 EXPECTED WORD FOR TYPEOUT 

i ;WCE AFTER WRITE CMD 

i aon +CERR AFTER WRITE CHECK CMD 

57, ay 60,32, <AFTER WRITE CHECK CMD>, T. A2.T. 82.0 
— +RABORTING BALANCE OF TESTS 


D. ORA 
57, 31,60, 32, <AFTER WRITE CHECK CMD>, T. AZ. T. B2,0 


SESCAPE 

#1,S$TIMES 

@STACK, SP 

SDEVCT  INCR COUNT FOR # DRIVES CHECKED 
ORIVS. SDOEVCT ;ARE ALL DRIVES PRESENT TESTED? 
SEOP1+2 7BR IF YES 

NUORV *ELSE TEST NEXT DP IVE PRESENT 

A 

@CCLR. RKCS1I(RS) 


SUNIT, RKCS2(R5) 
UNI TB. RKCSZ(RS) 


#PACK. HCS1 

PC, DOCND *DO PACK CMD & GET CONTR ROY 
116 CONTR NOT ROY AFT PACK CMO 
#D. VV. HMR2 

A 

2? >VV NOT SET AFTER PACK CMD 





SEQ 0038 
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N 3 
30(1046) 29-SEP- 


T PARAMETER BLOCK 
+MACRO TO RELEASE PORT A OR B 
; RELEA 


*RLS PORT A: 
‘a PORT B: 


“MACRO a WX, ¥,2,7 


J: 
_ ENDM 


MACRO 


77 (10:08 PAGE 39 SEQ 0039 


S 0.1.8.8 TARE 44 wees oe ITH MACROS BELOW) 


RELEAS 1.0.8.A 


SUNIT, RKCSZ(RS) 
#W. UNITB 

UNITE. RKCSZ(R5) 
#''Y,MSG19A 
#RLS, RKCSZ(RS) 
#SELORV, HCS1 
PC, DOCMD 

117 


SUNIT. RKCS2(R5) 
#X. UNITB 

UNI TB. RKCS2(R5) 
#''2,MSG19A 
#SELORV, HCS1 
PC, DOCMD 

117 


#0. ORA. HMR2 
J 
71 


A.C 

#A, UNITB 
#''C,MSG19A 
TIMER, COUNT 
PC. TNO 


PC, SUBCLP 
24 


(B, A, D, 


USED WITH MACROS BELOW) 


+SETUP FOR PORT Y 


RELEASE PORT Y 


+00 SELORV (STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL DRY CMD 


+ SETUP FOR PORT Z 


+D0 SELORV (STATUS) CMO & GET CONTR RDY 
+NO RKY AFTER SEL ORV CMD 


;SEE IF DRIVE AVAIL ON PORT 2 
>BR IF _YES 
:PORT Z NOT AVAIL AFTER PORT Y RLS 


/SETUP PORT ¢ 


700 TIMEOUT 


/CEPR AFTER SCLP 


Se Oe ; al a WIks OULIUTOs 47°DEF°Ce «61U: US «PME 4 SEQ 0040 


— www etme cette: | aT the 8 OWEN 7% Vinuiive 
DZRO6GA. P11 29-SEP-77 09: 55 APT PARAMETER BLOCK 

2014 

2015 JSR PC, ORAV +SEE IF DRIVE AVAIL 

2016 ERROR 45S ;PORT C NOT AVAIL AFTER TNO 

2017 .ENOM SETP 

2018 

2019 . MACRO REPTST 

2020 | 

aae + THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 

2023 .ENDM REPTST 

2024 

2025 . MACRO REPTA 

2026 | 

2027 ;% THE PREVIOUS TEST IS REPEATED FOR PORT ‘B', 

anes + BUT THE SEEK 1S TO CYLINDER O 

“Vea. , 

2030 .ENOM REPTA 

2031 

2032 . MACRO HEADER 

2033 ; 

2034 ;A & B=0 FOR PORT A OR 1 FOR PORT B 

tn ;C & D=A FOR PORT A OR B FOR PORT B 

2037 _ENDM HEADER 

2038 

2039 . MACRO SUNIT 

2040 MoV SUNIT,RKCS2(R5) 

2041 . ADD UNITB, RKCS2(R5) 

2042 .ENDM SUNIT 

2043 

2044 ; 

2045 >A & B=0 FOR PORT A OR 1 FOR PORT B 

—s 7C & D=A FOR PORT A OR B FOR PORT B 
4 ; 

2048 . MACRO TSTS A.B.C,D0-E 

2049 SETP A.C 

2050 MOV #5%, SESCAPE 

2051 F.EAB OD. DRA 

2052 CHECK 77,100,101.102.<AFTER TINEOUT>,0,0,0 

2053 MOV #B. UNITB >SELECT PORT D BEFORE TIMEOUT OR RELEASE 

2054 MOVB #''D,MSG19A ; SETUP ERROR MSG FOR PORT D 

2055 CLR SESCAPE 

2056 JSR PC, DRAV »SEE IF DRIVE AVAIL 

2057 BR 1$ >BR IF NOT AVAIL 

—s ERROR 103 >PORT D AVAIL BEF ORE TMO OR RELEASE 
59 

2060 1$: BIT @cCERR, HCS1 

2061 BNE 6$ 

2062 ERROR 130 ;CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 

2063 os: MOV #<D. x ¥ YU>,E. AO 

2064 MOV —.AO-E.A ;MSG A & B SHOULD ALWAYS RETURN SAME 

2065 BIS 4 DDT Al 

2066 CLR E. 80 ;WORD O FOR PORT D 

2067 CLR —.B1 

2068 MoV #5%, SESCAPE 


2069 CHECK 104, 105,106,107, <WHILE PORT D UNAVAILABLE>.0.0.0 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


DZROGA. P11 


MACY11 30(1046) 
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8S: 


3: 


4S: 


5S 


SPASS 

8$ 

5$ 

SESCAPE 
#A,U 

#''C, MSG19A 


#360, COUNT 
PC. CLKON 


PC, DRAV 
45 


#8, UNITE 
#''D, MSG19A 
PC, DRAV 

3$ 

103 


#CCLR,RKCS1(R5) 


SUNIT, RY 
UNITB, RY 
PC. FATT 
110 


PC, CLKOF 
PC, DRAV 
WS 


#5%, SESCAPE 


<0. OSC'D. DRA> 


Cc 4 
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A 
#CCLR, RKCS1(R5) 
NITB 


SEQ 0041 


;BR IF FIRST PASS 
ELSE EXIT TEST 
+ SETUP FOR PORT C AGAIN 
+SETUP 4 SEC TIMEOUT 
+ TURN ON CLOCK 
;PORT C NOT AVAIL AFTER TIMEOUT 
; SELECT PORT D BEFORE TIMEOUT OR RELEASE 
SEE IF PORT D DRIVE AVAIL 
| 


7BR IF NOT AVAIL 
PORT D AVAIL BEFORE TMO OR RELEASE 


:>NO ATTN ON PORT D0 TO ALLOW SEIZE 


;SEE IF PORT O DRIVE AVAIL 
>PORT D NOT AVAIL 


77,100. 101,102. <AFTER TIMEOUT>.6,9,.0 


SESCAPE 

#A, UNITB 
#''C,MSG19A 
PC, TSTATN 
4$ 

111 


#5%, SESCAPE 
#8, UNI TB 
#''O. MSG19A 


#360,R1 
COUNT, R1 
#17.,R1 
E 


R1,-(SP) 
PC, $SB20 
PC. SSUPRS 
MSG22 


SESCAPE 
PC, CLKOF 


SETUP FOR PORT C 
> TEST FOR ATTN ON PORT C 
;PORT C ATTN SET W/O REQUEST PENDING 


>SETUP FOP PORT 0 


>R1-COUNT=R1 

;MULT BY 16. 66 MS 

;PORT TIMEOUT 

;PUSH BINARY ONTO STACK 
>; CONVERT TO ASCII 

aT ¥PE UF 

>MS 
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.ENDM = TSTS 


i 


. 


MACRO TST10 
SETP 


ERROR 
.ENDM = TST10 


;A & B=0 FOR PORT A OR 1 FOR PORT B 
;C & D=A FOR PORT A OR B FOR PORT B 


BB, C.D.E.F, 26 

#F RKDC (RS) ;SEEK TO CYL F 

PC, ROCYLA ;READ CYL ADOR 

CYLADD. #F [SEE IF CYL F 

G BR IF YES 

#E, FRCYL 

#F. TOCYL 

#F, CALDIF 

#F. RKDC(RS) ; REFRESH RKDC 

224 [DID NOT SEEK TO CYL F 
#150. , COUNT 

Pc, THO :DO 2.5 SEC TIMEOUT 

PC. FATT2 

112 ATTN CLEARED AFTER TMO 
PC, DRAV 

112 SPORT C NOT AVAIL AFTER DRIVE CLEAR CMD 


[A & B=G FOR PORT A OR 1 FOR PORT B 
“C & D=A FOR PORT A OR B FOR PORT B 


“MACRO TST12 
SETP 


QKSEEK 


DRCLR 


A.B.C.0 
A.C 


TIMER, COUNT 

PC, THO 700 1.5 SEC TIMEOUT 

#B, UNITB “;SETUP PORT D 

#''D,MSG1I9A 

PC, DRAV 

45 >PORT D NOT AVAIL AFTER TMO 


0 
a eam 


#n. UNITB > SETUP PORTC 

#''C, MSG19A 

PC, DRAV 

45 PORT C NOT AVAIL AFTER TMO 


D. OSC 
TIMER, COUNT 


PC, THO D0 1.5 SEC TIMEOUT 
#8. UNITB >SETUP PORT D 


SEQ 0042 


—_— 
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2182 MOVB #''D, MSGI9A 
2183 JSR PC, TSTATN 
2184 ERROR 114 ; ATTN He ON PORT D AFTER OR CLR CMD 
2185 ;ON PORT C 
2186 
2187 STDER1 0. OSC 
2188 .ENOM TST12 
2189 
2190 ; 
2191 ;A & B=0 FOR PORT A OR 1 FOR PORT B 
eles C & D=A FOR PORT A OR B FOR PORT B 
2194 .MACRO TST14 A,B.C.D0 
2195 SETP AC 
2196 RELEAS A,8B8.C.D 
2197 JSR PC, TSTATN 
2198 BR 1% 
2199 ERROR 115 ;ATTN SET IN PORT D AFTER RLS OF PORT C 
2200 1$ F. EAB D. ORA 
ott CHECK 133,134,135, 136, <AFTER RELEASED TO PORT D>,0.0 0 
2203 MOV #A,. UNITB ;ADDRESS PORT C 
2204 MOVB #''C,MSG19A 
2205 JSR PC. TSTATN 
2206 SKIP R, <GOTO NEXT TST> 
2207 ERROR 115 ;ATTN SET AFTER RLS ISSUED 
2208 STDOER2 0D. DRA 
2209 _ ENOM TST14 
2210 
2211 ; 
2212 ;A & B=0 FOR PORT A OR 1 FOR PORT B 
2213 >C & D=A FOR PORT A OR B FOR PORT B 
2214 ; 
2215 MACRO TST16~ A,§.C.0 
2216 RELEAS 8.A, " C 
2217 STDERZ2 0D. DRA 
2218 JSR PC, SUBCLR 
2219 ERROR 24 ;CERR AFTER SCLP 
2220 QKSEEK 
222i 
a2Zze Mov #B, UNITB ; SETUP PORT O 
2223 MOVB #''D.MSG19A 
2224 JSR PC, DRAV ;SEE IF ORIVE AVAIL 
2225 BR 1$ 
2226 ERROR 103 >PORT D AVAIL BEFORE TNO OR RELEASE 
2227 
2228 15: BIT #cERR, HCS1 
2229 BNE 2$ 
2230 ERROR 130 ;CERR NOT SET AFTEP SEL CRIVE CMD 
2231 >& NO DRA 
2232 2s JSR PC, TSTATN 
2233 BR 3$ 
2234 ERROR 115 ;ATTN SET IN POPT C AFTER RLS FROM PORT C 
2235 
2236 3§ MoV @CCLR- RKCSICRS) 


RELEAS AB-C,.0 


SEQ 0043 
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2238 JSR PC, TSTATN 

oem ERROR 122 ;NO ATTN IN PORT D AFTER RLS FROM PORT C 
2241 STDER2 <0. 0SC!0. DRA> 

2242 RELEAS 8.A,D, 

2243 JSR PC, TSTATN 

ae ERROR 123 ;ATTN CLEARED IN PORT C AFT RLS FROM PORT D 
2246 STDER2 <D. OSC'D. DRA> 

2247 RELEAS A,B8.C.D 

2248 ORCLR 

2249 MOV TIMER, COUNT 

2250 JSR PC, THO ;00 1.5 SEC TIMEOUT ON PORT D 
2251 JSR PC, TSTATN 

2252 SKIP R,<GOTO NEXT TST> 

2252 ERROR 144 ;MULT ATTN ON PORT D 

2254 .ENDM TST16 

2255 

2256 

2257 ; 

2258 ;A & B=0 FOR PORT A OR 1 FOR PORT B 

ror >C & D=A FOR PORT A OR B FOR PORT B 

2261 _MACRO TST20 A,8,C.D 

2262 RELEAS 8.A.D.C 

2263 STDERZ 0. DORA 

2264 JSR PC, SUBCLR 

2265 ERROR 24 ;CERR AFTER SCLR 

2266 

2267 MOV #8, UNITB ;SETUP PORT D 

2268 MOVB #''D.MSG19A 

2269 JSR PC, DRAV ;SEE IF DRIVE AVAIL 

2270 BR 1$ 

oe ERROR 103 ;PORT D AVAIL BEFORE TMO OR RELEASE 
2 

2273 1S: BIT @CERR, HCS1 

2274 BNE 2$ 

2275 ERROR 130 ;CERR NOT SET BY NO DORA 

c27e 

2277 25. JSR PC, TSTATN 

2273 BR 3$ 

2279 ERROR 115 :ATTN SET IN POPT DO AFTER PLS FROM PORT C 
2280 

2281 3S. MoV @CCLR-RKCSICRS) 

2282 RELEAS 8B.A.D.C 

2283 RELEAS A.B.C.D 

2284 MoV TIMER, COUNT 

2285 JSR PC, THO ;00 1.5 SEC TIMEQUT ON PORT O 
2286 JSR PC, *STATN 

2287 BR 4% 

2288 ERROR 115 ;ATTN SET ON PORT O AFTER PLS FROM PORT D 
2289 

2290 4g STDER2 O 

2291 MoV #A, UNITB > SETUP PORT C 

2292 MOoVvB #''C,. MSG19A 


2293 JSR PC, TSTATN 
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2294 SKIP R,<GOTO NEXT TST> 
2295 ERROR 115 ;ATTN SET ON PORT C, AFTER RLS FROM PORT C 
2296 -ENDM TST20 
2297 
2298 
2299 ; 
2306 ;A & B=0 FOR PORT A OR 1 FOR PORT B 
pt ;C & D=A FOR PORT A OR B FOR PORT CE 
2303 -MACRO TST22~ A,B.C.D 
2204 SETP A,C 
2305 RELEAS 8.A,D.C 
2306 STDER2 0D. DRA 
2307 . ENDM TST22 
230s 
2302 j 
2310 ;A & B=0 FOR PORT A OR 1 FOR PORT B 
TH ;C & D=A FOR PORT A OR B FOR PORT B 
2312 ; 
2313 _MACRO TST24 A,B.C.D-E 
2314 RELEAS 8.A.0-C 
2315 JSR PC, SUBCLR 
th: ERROR 24 ;CERR AFTER SCLR 

1 

2318 Mov #E, PKDC CRS) 
2319 MOV #SEEK, HCS1 
2320 JSR PC, DOCMD :DO0 SEEK CMD & GET CONTR READS 
2321 ERROR 131 ;NO RDY AFTER SEEK CMD 
2322 RELEAS A.B.C.D 
2323 MoV TS50000. TEMP 1 
2324 JSR PC. FATT2 
oo ERROR 152 ;NQ ATTN ON PORT O AFTER SEEK & RLS FROM PORT C 
2326 
2327 F. EAB <D DRA'D. DSC> 
2328 CHECK 145, 146, 147, 150, <AFTER SEEK & RLS FROM PORT C>,0,0,0 
2329 RELEAS 8.A,D-C 
2330 JSR PC, TSTATN 
2331 BR 1$ 
2332 ERROR 160 ;ATTN ON PORT C AFTER SEEK & RLS FROM PORT C 
2333 
2334 1S: F. EAB D. ORA 
2335 CHECK 145, 146, 147,150, (AFTER SEEK & RLS FROM PORT C>,.0,0-0 
2336 . ENDM TST24 
2337 
2338 ; 
2339 >A & B=0 FOR PORT A OR 1 FOR PORT B 
2340 :C & D=A FOR PORT A OR B FOR PORT B 
2341 ; 
2342 .MACRO TST26~ A.8B.C.D 
2343 JSR PC. SUBCLR 
2344 ERROR 24 ;CERR AFTER SCLR 
2345 RELEAS 8B.A,D,C 
2346 JSR PC, SUBCLR 
2347 ERROR 24 ;CERR AFTER SCLP 
2348 
2349 MoV #30. , COUNT 


SEQ 0045 
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i$: Move 


ERROR 
.ENDM TST26 


MACY11 30(1046) 
APT PARAMETER BLOCK 


PC, THO 
PC, ORAV 


of 
uw 


#-1, COUNT 
PC, CLKON 
#8. UNITB 
PC, DRAV 
1$ 


103 

#''D, MSG19A 
SUNIT,R4 
UNI TB. RY 
PC, FATTS 
110 


PC, CLKOF 
COUNT 
COUNT, #35. 
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+00 SOOMS TIMEOUT 
;RE-SEIZE DRIVE THRU PORT C 
;PORT C NOT AVAIL AFTER TIMEOUT 


+ TURN ON CLOCK 

+SETUP PORT D 

+SEE IF ORV AVAIL 

+BR IF NO 

;PORT C AVAIL BEFORE TMO OR RLS 


+NO ATTN ON PORT D TO ALLOW SEIZE 


; TURN CLOCK OFF 
+GET ACTUAL COUNT OF TIMEOUT 
; COMPARE COUNT AGAINST APPROX 1 SEC 


ao TO NEXT TEST> 
5 


> TIMEOUT DID NOT RE-TRIGGER 


A & B=0 FOR PORT A OR 1 FOR PORT B 
>C & D=A FOR PORT A OR B FOR PORT B 


“MACRO TST3O 
JS 


A.B,C.D 
PC, SUBCLR 
24 

B.A, 0,¢ 
PC, SUBCLR 
24 


#8, UNITB 


;CERR AFTER SCLR 


*CERR AFTER SCLR 
SETUP FOR PORT D 
PORT D TRIES TO SEIZE THE DRIVE 


BR IF NOT AVAIL 
>PORT D AVAIL BEFORE TMO OR RELEASE 


aCCLR,RKCSICRS) 


A.B, C.D 

#A, UNITB 
#''C,MSG19A 
PC, DRAV 

23 

103 


SETUP FOR PORT C 


>PORT C AVA'L BEFORE THO OR RELEASE 


#CCLR,RKCS1IC(R5) 


#-1, COUNT 
PC, CLKON 

SUNIT, R4 

UNITB. RY 

PC. FATT 

110 


;NO ATTN ON PORT C TO ALLOW SEIZE 


1 4 
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2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
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JSR PC, CLKOF + TURN CLOCK OFF 
Con COUNT +GET ACTUAL COUNT OF TIMEOUT 
CMP COUNT, #35. COMPARE AGAINST APPROX 1 SEC 
SKIP GE. <GO TO NEXT TST> 
ERROR 153 ; TIMEOUT DID NOT RE-TRIGGER 
.ENDM = TST30 
-A & B=0 FOR PORT A OR 1 FOR PORT B 
>C & D=A FOR PORT A OR B FOR PORT B 
.MACRO TST32 A,B.C.D 
RELEAS 8.A,D0,C 
JSR PC, SUBCLR 
ERROR 24 >CERR AFTER SCLR 


INC UNLD ;USED FOR VALID HALT 
MOV #2, SESCAPE 

MOV #UNLOAD, HCS1 UNLOAD CMD 

BIS STMP4Y, HCS1 

MOV HCS1, RKCS1(R5) 


MOV T19, TEMP 1 + SETUP — 

JSR PC, FATT2 >FIND A 

ERROR 73 :NO ATTN TRE TER UNLD CMD 

MOU #300. , COUNT 

JSR PC, TMO *DO 5 SEC DELAY 

MOV #8, UNITB * SETUP FOR PORT D 

MOVE #''D,MSG19A 

JSR PC, DRAV 

BR 1$ 

ERROR 155 >PORT DO AVAIL BEFORE RLS WHEN UNLOADED 

UNLOAD DID NOT INHIBIT TIMERS 

1$: MOV SCCLR, RKCS1C(R5) 

RELEAS A,6,-C.0 
25: CLR SESCAPE 

QKSRT 

CLR UNLD 
.ENDM = TST32 


-A & B=0 FOR PORT A OR 1 FOR PORT B 
:C & D=A FOR PORT A OR B FOR PORT B 


“MACRO TST32A A.B.C,D 
RELEAS B,A,D.C 
JSR PC, SUBCLR 


ERROR 24 >CERP AFTER SCLP 
MOV #5%, SESCAPE 

MoV LC, RKOC (RS) >SEEK TO LAST CYL 
Qk SEEK 

DRCLP 


SEQ 0047 
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1$: 


28: 


4S. 


53: 
_ ENDM 
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CLR 
TST32A 


NLIST 


APT PARAMETER BLOCK 


#RECAL. HCS1 
STMP4, HCS1 


HCS1, RKCS1(R5) 


SUNIT, RY 
U 


#8. UNI TB 
#''D, MSG19A 


#CCLR, RKCS1I(RS) 


#A, UNITB 
#''C,MSG19A 
PC, DRAV 

203 

1$ 


PC, GSTAT 
#D. PIP, HMR2 
4$ 

72 

— 
#6, UNITB 
#''O, MSG19A 
PC, DRAV 

45 


SESCAPE 


MD 


;RECAL COMMAND 


NITB.R4 
ATTNCR4Y),RKASOF+1(R5) +SEE IF ATTN SET 
3$ 7BR IF YES 


+ SETUP FOR PORT D 


+SEE IF ORV AVAIL 

RETURN HERE IF NO 

;PORT D AVAIL 

+RECAL DID NOT INHIBIT TIMERS 


> SETUP PORT C 
*SEE IF ORV AVAIL 
PORT C NOT REMAIN AVAIL DURING RECAL 


;SEE IF ANY MOTION 
;BR IF NO 
:PIP SET AFTER ATTN PEC'D FROM RECAL 


*DO 2 SEC DLY 
SETUP FOR PORT D 


>SEE IF ORV NOW AVAIL 
:PORT D NOT AVAIL AFTER THO 


SEQ 0048 


UN | BUS 
DZR6GA 





Pil 


001100 
001100 
001102 
901103 
001104 
001106 
001110 
001112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 


001210 
001210 
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001100 
000000 


000000 


000377 
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COMMON T 
.SBTTL COMMON TAGS 
+s MAEXAAAAAAAAAAAAAAAAAA AAA AAA TAA AAA AAA AAA AAA AAA AAA AAA EAS 


+XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATICNS 
+*USED IN THE PROGRAM. 


. =1100 
SCNTAG: yee 8 ++ START OF COMMON TAGS 
STSTNM: .BYTE 0 +-CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 +; CONTAINS ERROR FLAG 
SICNT: .WORD 0 +-CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 +;CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 ++ CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD O +;CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE O ++CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 ++CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD O ++CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 +>CONTAINS ADDRESS OF ‘GOOD’ DATA 
SBDADR: .WORD 0 +-CONTAINS ADDRESS OF ‘'BAD' DATA 
SGDDAT: .WORD 0 ++CONTAINS ‘'GOOD' DATA 
SBDDAT: .WORD 0 +-CONTAINS ‘BAD’ DATA 

ove : ;+RESERVED--NOT TO BE USED 

JW 
SAUTOB: .BYTE OQ +;AUTOMATIC MODE INDICATOR 
$INTAG: od : ++ INTERRUPT MODE INDICATOR 

.W 
SUR: .WORD OSWR +;ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP +;AODRESS OF DISPLAY REGISTER 
STKS: 177560 ++ TTY KBD STATUS 
STKB: 177562 + TTY KBD BUFFER 
STPS: 177564 +; TTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 +; TTY PRINTER BUFFER REG. ADDRESS 
SNULL: BYTE 9 +;CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 +;CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 ++ INSERT FILL CHARS. AFTER A “LINE FEED" 
STPFLG: .BYTE 0 ++ "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
STMPO: WORD 0 +;USER DEFINED 
STMP 1: WORD 0 +;USER DEFINED 
STMP 2: WORD O +;USEP DEFINED 
STMP 3: WORD QO +;USER DEFINED 
STMP4: WORD 0 +;USER DEFINED 
STMPS: WORD 0 +;USER DEFINED 
STIMES: O +;MAX. NUMBER OF ITERATIONS 
SESCAPE: 0 +7ESCAPE ON ERROR ADDRESS 
SBELL: .ASCIZ ¢207>¢377><377> >; CODE FOR BELL 
SQUES: .ASCII /?7 +; QUESTION MARK 
SCRLF: .ASCII <15> + CARRIAGE RETURN 
SLF ASCIZ <12> 


: ; 77LINE FEED 
3 AKKKKAAAAA AA EAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KATY 
_SBTTL APT MAILBOX-ETABLE 


3 MHXAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA 


_ EVEN : 
SMAIL: ;;APT MAILBOX 
SMSGTY: .WORD AMSGTY ;; MESSAGE TYPE CODE 


SEQ 0049 


. © 
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2556 001212 000000 SFATAL: .WORD AFATAL ;; FATAL ERROR NUMBER 
2557 001214 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 

2558 001216 000°90 SPASS WORD APAS iG COUNT 

2559 001220 000.00 SOEVCT: .WORD ADEVCT +; DEVICE COUNT 

2560 001222 000000 SUNIT: .WORD UNIT ;; 170 UNIT NUMBER 

2561 001224 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE yy 

2562 001226 000000 SMSGLG: .WORD ANSGLG ;; MESSAGE LENGTH 

2563 001230 SE TABLE: ++APT ENVIRONMENT TABLE 
2564 001230 000 SENV: .BYTE AENV + ENVIRONMENT BYTE 

2565 001231 000 SENVM: .BYTE AENVMN ;; ENVIRONMENT MODE BITS 
2566 001232 000000 SSWREG: .WORD ASWREG ;; APT SWITCH REGISTER 
2567 001234 000000 SUSWR: .WORD AUSWR ;; USER SWITCHES 

2568 001236 90000 SCPUOP: .WORD ACPUOP ;;CPU TYPE, OPTIONS 


2569 eS BITS 15-11=CPU TYPE 


2570 +% 11/04=01, 11/05=02, 11720=03, 11/40=04, 11745=05 
2571 re 11/70=06, PDQ=07, Q=10 

257 :* BIT 10=REAL TIME CLOCK 

2573 ;* BIT 9=FLOATING POINT _——— 
2574 ;* BIT S8=MEMORY MANAGEMENT 

2575 001240 000 SMAMS1: .BYTE ANANSI ;; HIGH ADDRESS.M.S. BYTE 

2576 001241 900 SMTYP1: .BYTE AMTYP1 -;; MEM. TYPE, BLK#1 

2577 ;* MEM. TYPE BYTE -- (HIGH BYTE) 
2578 -* 900 NSEC CORE=001 

2579 x 300 NSEC BIPOLAR=002 

2580 :% 500 NSEC MOS=003 

2581 001242 000000 SMADR1: .WORD AMADR1 ;; HIGH ADDRESS. BLK#1 

2582 ;x MEM. LAST ADOR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
2583 001244 000 SMAMS2: .BYTE ANANSZ2 ;; HIGH ADDRESS.M.S. BYTE 

2584 001245 000 SMTYP2: .BYTE ANTYPZ2 ¢; MEM. TYPE. BLK&Z 

2585 001246 000000 SMADR2: .WORD AMADR2 ;; MEM. LAST ADDRESS. BLK#2 

2586 001250 000 SMANS3: .BYTE AMANS3 ;; HIGH ADDRESS.M. S. BYTE 

2587 001251 000 SMTYP3: .BYTE AMTYPS -; MEM. TYPE. BLK&3 

2588 001252 000000 SMADR3: . WORD AMADRS ;; MEM. LAST ADDRESS. BLK#3 

2589 001254 000 SMAMNSY: .BYTE AMANSY ;; HIGH ADDRESS.M. S. BYTE 

2590 001255 000 SMTYP4Y: .BYTE ANTYPY ;; MEM. TYPE. BLK&4 

2591 001256 000000 SMADRY: .WORD AMADRY ;; MEM. LAST ADDRESS. BLK&4 

2592 001260 000000 SVECTi: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
2593 001262 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#Z2BUS PRIORITY&2 
2594 001264 177440 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
2595 001266 000000 SDEVM: .WORD ADEVN ;; DEVICE MAP 

2596 001270 000000 SCOW1: .WORD ACOW1 ;; CONTROLLER DESCRIPTION WORDS! 
2597 001272 000000 SCOW2: .WORD ACDWZ2 ;; CONTROLLER DESCRIPTION WORDS2 
2598 001274 0000900 S$DDWO: .WORD ADDWO ;; DEVICE DESCRIPTOR WORD&O 

2599 001276 000000 $00W1: .WORD ADDWi ;; DEVICE DESCRIPTOR WORD#1 

2600 001300 000000 $00W2: .WORD ADDW2 ;; DEVICE DESCRIPTOR WORD#2 

2601 001302 000000 $00W3: . WORD ADDW3 ;; DEVICE DESCRIPTOR WORD#3 

2602 001304 000000 SODW4: .WORD ADDWH ;; DEVICE DESCRIPTOR WORDS4 

2603 001306 9000000 SODWS: .WORD ADOWS ;; DEVICE DESCRIPTOR WORDSS 

2604 001310 9000000 S$00W6: .WORD ADDWE ;; DEVICE DESCRIPTOR WORDSG 

2605 001312 000000 S$ODW7: . WORD ADOW7? ;; DEVICE DESCRIPTOR WORDS? 

2606 001314 SE TEND: 

2607 _MEXIT 

2608 177440 ABASE= 177440 DEFAULT BUSS ADDRESS 

2609 001314 006210 RKVEC: 210 DEFAULT CONTROLLER INTERRUPT VECTOR 
2610 001316 000240 RKPRI: PRS s PRIORITY 


2611 001320 172540 PKS: 172540 >P-CLOCK STATUS REG 


Mn 4 } 
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2612 001322 172542 PKSB: 172542 +P-CLOCK SET BUFFER 

2613 001324 172544 PKRB: 172544 +P-CLOCK READ BUFFER 

ae 001326 177546 LKS: 177546 +L-CLOCK STATUS REG. 

2616 001330 000100 LCVEC: 100 sL-CLOCK INTERRUPT VECTOR 

tt! 001332 000104 PCVEC: 104 +P-CLOCK INTERRUPT VECTOR. 

2619 000114 MEMVEC= 114 sMEMORY PARITY VECTOR 

2620 172100 MEMBAS= 172100 ;MEMORY PARITY OPTION CSR START ADOR 

og 001334 000000 TRAPPC: 0 +PC FOR MEM CHECK ENABLE TRAP 

2623 001336 000000 PARAM: 0 +1 FOR 220 START. NO DEFAULT 

os 001340 o0cod00 FTITLE: O +FLAG FOR PRINTING OUT 1ST PROGRAM TITLE 

2626 001342 000000 DRVPTR: 0 +; CONTAINS THE POINTER TO THE DRIVE FLAG 

2627 + (DRIVO-ORIV7) OF THE DRIVE TO BE CHECKED NEXT. 

2628 000040 SPBAR=40 + SPACEBAR 

2629 001344 000000 FRCYL: 0 7FROM CYLINDER 

2630 001346 000000 TOCYL: 9 +TO CYLINDER 

2631 001350 000000 CCYL: 0 ; CURRENT CYL. USED IN N SQUARE TEST 

2632 001352 000000 PCYL: 0 ;PREV CYL.. USEC IN N SQUARE TEST 

2633 001354 9000000 CALDIF: 0 *CALC CYL DIFF USED IN N SQUARE TEST 

2634 001356 000000 CYLDIF: O +CYL DIFF. RIGHT JUSTIFIED FROM RKMRS 

2635 001360 000000 CYLADD: 0 ‘CYL ADDR, RIGHT JUSTIFIED FROM RKMRZ 

me 001362 000000 CALADD: 0 >CYL ADDR USED IN FHDTAB ROUTINE 

2638 001364 000074 H2: 60. +60 FOR 60 CPS 

2639 +50 FOR 50 CPS 

2640 001366 9000000 COUNT: 90 ;LOQDED TO 50 OR 60 TO COUNT TO 1 SEC 

2641 ;OR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND 

2642 601370 000000 SEC: 0 ; SECOND COUNTER 

2643 001372 000000 TiMUP: 0 ‘FLAG TO INDICATE TIME IS UP 

2644 001374 000000 SECTOR: 0 SECTOR COUNT. RIGHT JUSTIFIED FROM RKMR3 

2645 

2646 001376 000001 TI: 1 ; TIMEOUT CONSTANTS 

2647 001400 000012 T10: 10. 

2648 001402 600062 TSO: 50. 

2649 001404 000764 T500: 500. 

2650 001406 000144 7100: 100. 

2651 001410 011610 T5000: 5000. 

2652 001412 141520 T50000: 50000. 

2653 

2654 

2655 001414 000000 WO1: 0 ACTUAL HEADER/DATA WORD 

2656 001416 000000 WO2: 0 EXPECTED DATA WORD 

2657 001420 000000 HEAD 0 +HEAD NUMBER 

2658 001422 000000 HEADA: 9 ;HEAD # FROM H.B3. RT. JUSTIFIED 

2659 001424 000000 HO 0 SHIFTED HEAD# FOR FORMATTER ROUTINE 

2660 001426 000000 FORMAT: 0 ;FORMAT TYPE 

2661 001430 000000 FMT1: 0 ; SHIFTED FORMAT FOR FORMATTER ROUTINE 

2662 001432 000000 WOCNT: 0 +WORD COUNT 

2663 

2664 001434 000000 DATAD: 4 7ALL O'S 

2665 001436 052525 DATAO!: 52525 70101 PATT 

2666 001440 177777 DATAI: 177777 ALL 1°S 


2667 001442 133467 DPAT1: 133467 


UN | BUS 


DZR6GA. 
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Pil 
001444 


001446 
001450 


001452 
001454 
001456 
001460 


001462 
001666 
002072 
002276 
003276 
004276 
005276 
005300 


005302 


005304 
005307 
005312 


005314 


070627 


000000 
000000 


000000 
000000 
oco000 
000000 
000102 
000102 
000102 
000400 
000400 
000400 
000000 
cooo00 


000000 


001 
100 


002 
020 
200 


co04 
040 


MACY11 30(1046) 


APT MAILBOX-ETABLE 


DPAT2: 


WORD: 
HOWD: 


BSERR: 
LIMERR: 


BYPCERR: 


CHKF LG: 
HOTRB: 
RHTRB: 
SRTTRB: 
BSE 22H: 
BSE22S: 
RDTRB: 
UNLD: 

BADHOR: 


HPEND: 


ATTN: 


70627 


ooo0oo0 oOo 


. BLKW 66. 
. BLKW 66. 
. BLKW 66. 


. BLKW 256. 
. BLKW 256. 
. BLKW 256. 


N 4 
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+HEADER/DATA WORD 
;+HEADER WORD FROM RKDB 


i; CANNOT READ BSE INFO WHEN SET 
+LIMIT DETECT ERROR FLAG 

+SET TO 1 TO BYPASS CKCERR IN ‘GSTATI1' 
; WORDS 10 BE TESTED 


s+ CALCULATED HERDER WORD TABLE 
FILLED AFTER READ HEADER CMD 
ABOVE RHTAB SORTED STARTING FORM 
+ SECTOR O BY SORT ROUTINE 

+22 SECTOR HAROWARE BSE INFO. 

+22 SECTOR SOFTWARE BSE INFO. 
FILLED AFTER READ DATA CMD 


;SET TO O IF HEADS ARE LOADED 
+SET TO 1 IF HEADS UNLOADED 
*+SET TO O IF FORMATTING OK 

;SET TO 1 IF FORMATTING ALTERED 
+SET TO 0 IF HALT NOT PENDING 
+SET TO 1 IF HALT PENDING 


THE ABOVE 3 FLAGS ARE USED 
;BY ‘STOP’ ROUTINE TO BRING 
; THE CPU TO A VALID HALT. 


. BYTE 1,2,4, 10, 20.40, 100, 200 ;ATN O-7 RESP 


_ EVEN 


; THE FOLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS 
; THEY ARE LOADED AFTER RDY IS REC'D FROM WROY ROUTINE. 


oooo0o000000000o0 


*HOLD RKCS1 
;HOLD RKCS2 
HOLD RKWC 
7 ETC. 


SEQ 0052 


Pil 


005352 


005362 


005364 
005366 
005370 
005372 
005374 
005376 
005400 
005402 


005404 
005406 
005410 
005412 
005414 
005416 
005420 
005422 


0054 24 
005426 
0054 30 
005432 
0054 34 


005436 
005440 
005442 
005444 
005446 
005450 
005452 
005454 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
ooco00 
000000 
000000 
000000 
000000 


c00000 


ooo000 


000001 
000002 
ooco04 


ooo00cao 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
006000 
000000 


we SS ee 
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APT MAILBOX-* TOBLE 


TENP1: O ; TEMPORARY STORAGE. 

TEMP2: O 

TEMP3: O 

TEMPY: O 

TEnPS: O 

; THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(O-3) & MSGB(0-3) 


Bi: 


D 
ia) 
oooo0000 


THE FOLLOWING ARE ‘EXPECTED’ REGISTER FOR THE ABOVE 
BO: 
Bl: 
 B2: 


oooo0o0000 


H 
H 
H 
H 
H 
H 
H 
H. B3: 
E 
E 
E 
E 
E 
E 
E 
E 


THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 


T. A2=B1TO : TEST MSG AZ IF SET 
T B2=BIT1 


T. B3=B1T2 
; ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


DOUMP: 0 FLAG - SET WHEN IN DDP DUMP MODE 

DOPCH: 0 FLAG - SET WHEN IN DOP CHAIN MODE 

ACT11: 0 *>FLAG - SET WHEN IN ACT11 MODE OF OPERATION 
PPTP: 0 ;FLAG - SET WHEN PROGRAM LOADED BY PAPER TAPE 
DRivs: 0 ; CONTAINS THE NUMBER OF DRIVES PRESENT 


: THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
; 1S PRESENT AND IS TO BE TESTED. 
ONLY DRIVES 0.2.4.6 CAN BE TESTED 


DRIVO: O >FLAG SET TO 1 WHEN DRIVE O PRESENT 
ORIVi: O *FOR DRIVE 1 
DRIV2: O FOR DRIVE 2 
ORIV3: 90 *FOR DRIVE 3 
DRiV4: O +FOR DRIVE 4 
DRIVS: O 7FOR DRIVE 5 
DRIV6: 0 *FOR DRIVE 6 
DRIV7: O *FOR DRIVE 7 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
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005456 
005450 
005462 
005464 


005466 
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000000 
000000 
000000 
000000 


000132 
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APT MAILBOX-E TABLE 


LCLKF: 
PCLKF: 


$12FLG: 


UNI TB: 
TIMER: 


0 
0 
0 
0 


90. 


C 
29-SEP-77 


a, * 
C 
T 
F 
F 
M 
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LOCK FLAG PRESENT FLAG 
LOCK FLAG PRESENT FLAG 
IF DEFAULT DO SIZING IN TEST 1 
OR PORT A: ORIVES 0.2.4.6 
OR PORT B: DRIVES 1.,3,5,7 
ER FOR 1.5 SEC 


SEQ 0054 





D5 
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2786 
2787 
2788 
2789 





005470 


005470 
005472 
005474 
005476 


005500 
005502 
005504 
005506 


005510 
005512 
005514 
005516 


005520 
005522 
005524 
005526 


005530 
005532 
005534 
005536 


005540 
005542 
005544 
005546 


005550 
005552 
005554 
005556 
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057127 
062556 
065530 
066332 


057346 
062556 
065530 
066332 


057367 
062556 
065530 
066332 


057410 
062556 
065530 
066332 


000000 


000000 


057654 
062556 
065530 
066332 


057730 
062556 
065530 
0663232 


ERROR POINTER TABLE 
.SBTTL ERROR POINTER TABLE 
+*THIS TABLE CONTRINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


+XTHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
+RLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1S PERTINENT. 


+ ¥NOTE1: 1F SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC). 
; RNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;*x EM ;;POINTS TO THE ERROR MESSAGE 
;x OH ;;POINTS TO THE DATA HEADER 
| OT +;POINTS TO THE DATA 
;% OF ;;POINTS TO THE DATA FORMAT 
SERRTB 
;ERROF 1 
_ ;DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2Z 
H1 : 
OT! 
OF 1 
ERROR 2 
EMS ;DETECTED MDS 
DH1 
OT1 
OF 1 
EPROR 3 
EMe >DETECTED UFE 
OH1 
OT! 
OF 1 
ERROR & 
EN? ;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 
DH! 
OT! 
Fl 
ERROR 5S 
0 
0 
0 
0 
ERROR 6 
EM? :OP NOT PRESENT BUT SPECIFIED BY OPERATOR 
OH1 
DT1 
OF 1 
ERROR 7 
EM10 >ABORT TEST. COULD NOT REFERENCE CONTROLLER REGISTER 
OH1 
OT1 
OF 1 


UNIBUS 
DZR6GA 


2842 
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.Pil 


005560 
005562 
005564 
005566 


005570 
005572 
005574 
005576 


005600 
005602 
005604 
005606 


005610 
005612 
005614 
005616 


005620 
005622 
005624 
005626 


005630 
005632 
005634 
005636 


005640 
005642 
005644 
005646 


005650 
005652 
005654 
005656 


005660 
005662 
005664 


005666 
005670 
005672 
005674 
005676 
005700 


005702 
005704 
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060013 
062556 
065530 
066332 


060057 
064320 
065530 
066462 


060453 
064320 
065530 
066462 


060057 
064270 
065530 
066462 


060453 
064270 
065530 
066462 


060057 
064450 
065530 
066462 


062236 
064450 
065642 
066352 


060137 
063214 
065570 
066346 


062275 
064270 
065642 


066352 
062347 
064270 
065530 
066462 
066453 


064450 
065530 
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ERROR POINTER TABLE 


*ERROR 10 
E 


7 ERR 


/ ERR 


> ERR 


7 ERR 


> ERR 


> ERR 


> ERR 


/ERR 


- ERR 


15 


17 


20 


22 


— § 
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>ORA & NED BOTH SET 


;NO RDY 
;AFTER WRITE DATA CMD 


+ CERR SET 


;NO RDY 
; AFTER READ DATA CMD 


*CERR SET 


;NO RDY 
; AFTER WRITE CHECK CMD 


7WRITE CHECK ERROR SET 
AFTER WRITE CHECK CMD 


;UNEXP MEM PARITY TRAP 
TEST #, TRAP PC 


>READ DATA NOT COMPARE WITH WRITE DATA 
;RAFTER READ DATR CMD 


»DATA CHECK ERROR 


>CERR SET 
AFTER WRITE CHECK CMO 


SEQ 0056 


UN | BUS 
OZROGA 
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Pu 
005706 


005710 
005712 
005714 
005716 


005720 
005722 
005724 
005726 


005730 
005732 
005734 
005736 


005740 
005742 
005744 
005746 


005750 
005752 
005754 
005756 


005760 
005762 
005764 
005766 


005770 
005772 
005774 
005776 


006000 
006002 
006004 
006006 


006010 
006012 
006014 
006016 


006020 


006034 


066462 


060370 
064320 
066066 
066612 


060453 
064070 
065530 
066462 


0604 32 
064320 
066066 
066612 


060370 
064270 
066066 
C66612 


060702 
064012 
065530 
066462 


060432 
064270 
066066 
066612 


060370 
064450 
066066 
066612 


0604 32 
064450 
066066 
066612 


060347 
064116 
066066 
066612 


060370 
064116 
066066 
066612 


066411 
064116 
066066 


MACY11 30(1046) 
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OF 10 
sERR 23 


>ERR 25 


;ERR 26 


>ERR 30 


>ERR 31 


-ERR 32 


SERR 32 


>ERR 34 


/EPR 35 


FF § 
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MSG BO ERROR 
AFTER WRITE DATA CMD 


*CERR SET 
;AFTER SCLR 


;MSG B1 ERROR 


AFTER READ DATA CMD 


VOL VALID NOT SET 
>AFTER PACK CMD 


*MSG B1 ERROR 
; AFTER READ DATA CMD 


*MSG BO ERROR 
/AFTER WRITE CHECK CMO 


*MSG Bi ERROP 


AD ERROR 
AFTER DRIVE CLP CMO 


-BO ERROP 


SEQ 0057 


UNIBUS 
DZR6GA 


RKO6-RKO7 DUAL PORT 


Pil 
006036 


006040 
006042 
006044 
006046 


006050 
006052 
006054 
006056 


006060 
006062 
006064 
006066 


006070 
006072 
006074 
006076 


006100 
006102 
006104 
006106 


006110 
006112 
006114 
006116 


006120 
006122 
006124 
006126 


006130 
006132 
006134 
006136 


006140 
006142 
006144 
006146 


006150 
006152 
006154 
006156 


006160 
006162 
006164 
006166 


DRIVE DIAGNOSTIC 
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066612 


0604 32 
064116 
066066 
066612 


060347 
064736 
066066 
066612 


060370 
064736 
066066 
066612 


060411 
064736 
066066 
C66612 


060432 
064736 
066066 
066612 


061007 
064320 
065530 
066462 


060175 
062556 
065530 
066376 


061402 
062760 
065530 
066462 


060735 
064320 
065530 
066462 


061713 
063741 
066146 
066646 


061762 
063741 
066146 
066646 


ERR 


7 ERR 


7 ERR 


> ERR 


> ERR 


: ERR 


> EPP 


7 ERR 


> ERR 


36 


37 


40 


43 


yy 


45 


46 


MACY11 30(1046) 
ERROR POINTER TABLE 


DF 21 


OF 10 


G 5 
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+AC ERROR 
;AFTER WRITE HEADER CMD 


>BSE ERROR IN WRITE CMD NOT ON BSE TABLE 
-AFTER WRITE DATA CMD 


“WCE AT CYL 421-TRK 2. SEC 21 


;PORT NOT AVAIL 
RAFTER TIMEOUT 


*DETECTED 10 BAL SECTORS 
AFTER WRITE DATA CHD 


CYL DIFF/OFFSET 'N RKMP2 NOT CLEARED 
;AFTER RECAL CMD 


CYL ADDR IN RKMRZ NOT CLEARED 
/RFTER RECAL COMD 


SEQ 0058 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
DZROGA. P11 


006170 
006172 
006174 
006176 


006200 
006202 
006204 
006206 


006210 
006212 
006214 
006216 


006220 
006222 
006224 
006226 


006230 
006232 
006234 
006236 


006240 
006242 
006244 
006246 


006250 
006252 
006254 
006256 


006260 
006262 
006264 
006266 


006270 
006272 
006274 
006276 


006310 
006312 
006314 
006316 
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062475 
064245 
066022 
066566 


060347 
064320 
066066 
066612 


060411 
064320 
066066 
066612 


060347 
064270 
066066 
066612 


060115 
063741 
065530 
066462 


060411 
064270 
066066 
066612 


060347 
064450 
066066 
066612 


060411 
064450 
066066 
066612 


060347 
064371 
066066 
066612 


060370 
064371 
066066 
066612 


060411 
064371 
066066 
066612 


ERROR POINTER TABLE 


7ERR 51 


sERR 52 


/ ERR 


> ERR 


ERROR 55 
M 


> ERR 


> ERR 


7 ERR 


- ERR 


> ERR 


> ERR 


ERR 


53 


54 


56 


57 


60 


61 


62 


63 


64 


H 5 
MACY11 3001046) 29-SEP-77 10:08 PAGE 59 


OF 21 
EM13 


WRONG CYL# IN HEADER WORD (MISPOSITION) 
AFTER SEEK CMD 


MSG AOD ERROR 
;AFTER WRITE DATA CMD 


MSG Al ERROR 


MSG AD ERROR 
; AFTER READ DATA CMD 


*+NO ATTN 
;AFTER RECAL CMD 


MSG Al ERROR 


;MSG AD ERROR 
AFTER WRITE CHECK CMD 


“MSG Al ERPOP 


>AD ERROR 
;AFTEP REAC HEALER CMO 


SEQ 0059 


UN|BUS 
DZR6GA 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


.Pul 


006320 
006322 
006324 
006326 


006330 
006332 
006334 
006336 


006340 
006342 
006344 
006346 


006350 
006352 
006354 
00635¢ 


006360 
006362 
006364 
006366 


006370 
006372 
006374 
006376 


006400 
006402 
006404 
006406 


006410 
006412 
006414 
006416 


006420 
006422 
006424 
006426 


0064 30 
006432 
0064 34 
0064 36 


006440 
006442 
006444 
006446 


006450 


29-SEP-77 09: 55 


060432 
064371 
066066 
066612 


061066 
062556 
065530 
066332 


060370 
063741 
06€066 
066612 


060432 
063741 
066066 
066612 


C62170 
065925 
065530 
066462 


061402 
064502 
065530 
066462 


061361 
062714 
065530 
066462 


060115 
063765 
065530 
066462 


060115 
063310 
065530 
066462 


060475 
062556 
065530 
066332 


060602 
062556 
065530 
066332 


060347 


ERROR POINTER TABLE 


7 ERR 


> ERR 


> ERR 


7ERR ° 


-ERR 


> ERR 


“ERR 


65 


66 


67 


» 70 


71 


™N 
to 


74 


75 


76 


i § 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 60 SEQ 0060 


*;DETECTED BSE IN READ BUT NOT IN WRITE CHO. 


+BO ERROR 
AFTER RECAL CMD 


*>RTZ NOT SET 
/DURING RECAL CMD 


:PORT NOT AVAIL 
;AFTEP RLS 


;PiP SET 
;RAFTER ATTN REC'D FROM PRECAL 


;NOQ ATTN 

AFTER UNLOAD CMO 

>NO ATTN 

:AT END OF HEAD LOADING 
>NO DRIVS IN SDEWM 


NO DRIVS GN BUSS 


/AO ERPOP 


J § 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(104%6) 29-SEP-77 10:08 PAGE 61 SEQ 0061 
D2ROGA. P11 29-SEP-77 09: 55 ERROR POINTER TABLE 


3122 006452 062760 DHS ;AFTER THO 
3123 006454 066066 OT13 

3124 006456 066612 

3125 -ERR 100 

3126 006460 060370 

3127 006462 062760 DHS 

3128 006464 066066 OT13 

3129 006466 066612 DF 21 

3130 -ERR 101 

3131 006470 060411 EM19 

3132 006472 062760 DHS 

3133 006474 066066 DT13 

3134 006476 066612 DF 21 

3135 7ERR 102 

3136 006500 060432 EN20 

3137 006502 062760 DHS 

3138 006504 066066 OT13 

3139 006506 066612 OF 21 

3140 -ERR 163 ' 

3141 006510 061425 EM32 /PORT AVAIL 
3142 006512 063531 DH14 >BEFORE TMO OR RLS 
3143 006514 065530 OTi 

3144 006516 066462 DF 10 

3145 SERR 104 

3146 006520 060347 EM17 -AQ ERROR 
3147 006522 063563 DH15 :WHILE PORT UNAVAIL 
3148 006524 066066 0T13 

3149 006526 066612 DF 21 

3150 >EPR 105 

3151 006530 060370 EM18 

3152 006532 063563 DH15 

3153 006534 066066 DT13 

3154 006536 066612 OF 21 

3155 7ERR 106 

3156 006540 060411 EM19 

3157 006542 063563 DH15 

3158 006544 066066 O0T13 

3159 006546 066612 DF 21 

3160 7ERR 107 

3161 006550 060432 EN20 

3162 006552 063563 DH15 

3163 006554 066066 DT13 

3164 006556 066612 DF 21 

3165 >ERR 110 

3166 006560 060115 EM13 *>NO ATTN 
3167 006562 063612 DH16 >TO ALLOW PORT TO SEIZE 
3168 006564 065530 DT! 

3169 006566 066462 DF 10 

3170 >EPR 111 

3171 006570 061444 EMN33 ;ATTN SET 
3172 006572 064150 DH23 *W/O REQUEST PENDING 
3173 006574 065530 OT! 

3174 006576 066462 DF 10 

3175 >ERP 112 

3176 006600 060115 EM13 +NO ATTN - 


3177 006602 062760 DHS ;AFT TMO 


UN |BUS 
DZR6GA. 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11_30(1046) 


Pil 


006604 
006606 


006610 
006612 
006614 
006616 


006620 
006622 
006624 
006626 


006630 
006632 
006634 
006636 


006640 
006642 
006644 
006646 


006650 
006652 
006654 
006656 


006660 
006662 
006664 
006666 


006670 
006672 
006674 
006676 


006700 
006702 
006704 
006706 


006710 
006712 


29-SEP-77 09: 55 


065530 
066462 


061402 
064116 
065530 
066462 


061467 


066462 


061444 
064502 
065530 
066462 


060057 
064012 
065530 
066462 


060057 
064035 
065530 
066462 


060057 
064070 
065530 
066462 


060057 
063235 
065530 
066462 


060115 
064610 
065530 
066462 


061467 
064502 
065530 
066462 


060057 
063741 
065530 
066462 


062147 
062404 
065530 


ERROR POINTER TABLE 
OT1 


DF 10 


EM12 


DF10 


K 5 
29-SEP-77 


;PORT NO AVAIL 
AFTER DRIVE CLEAR CMD 


ATTN CLEARED 


+BY DR CLR TO OTHER PORT 


; ATTN 


N SET 
sAFT RELEASE !SSUED 


*CONT NOT RDY 


AFTER PACK CMD 


;CONT NOT RDY 


AFTER SEL OR CMD 


-AFTER SUBSYS CLEAR 


;AFTER START SPINDLE CMO 


>NO ATTN 


;AFT PLS & REQUEST PENDING 


ATTN CLEARED 


7; AFTER RELEASE 


AFTER RECAL CMD 


*CTO SET 


10:08 PAGE 62 


SEQ 0062 


;WHILE WAITING FOR OR REC'D CONTR ROY. MSG ARB BAD 


UNIBUS 
DZR6GA 


RKOG-RKO? DUAL PORT 


. Pil 
006736 


006740 
006742 
006744 
006746 


006750 
006752 
006754 
006756 


006760 
006762 
006764 
006766 


006770 
006772 
006774 
006776 


007000 
007002 
007004 
007006 


007010 
007012 
007014 
007016 


007020 
007022 
007024 
007026 


007030 


DRIVE DIAGNOS 


29-SEP-77 09: 55 


066412 


062215 
062404 
065530 
066412 


057346 
062404 
065530 
066412 


061516 
064527 
065530 
066462 


060057 
064245 
065530 
C66462 


060115 
064245 
065530 
066462 


060347 
064502 
066066 
066612 


L 5 
TIC MACY11_ 30(1046) 29-SEP-77 10:08 PAGE 63 


ERROR POINTER TABLE 


DFS 
sERR 126 
EN79 


+NED SET 
MCS SET 


;CERR NOT SET 
AFT SEL DRV CMD & NO DRA 


;NO RDY 
;AFTER SEEK CMD 


NO ATTN 


AO ERROR 
/AFTER RLS ISSUED 


>CYL DIFF/OFFSET 'N RKEMR2 NOT CLEARED 


*MSG AD ERROR 
AFTER SEEK TO SELF 


SEQ 0063 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


D?ROGA. P11 


007110 
007112 
007114 
007116 


007120 
007122 
007124 
007126 


007130 
007132 
007134 
007136 


007140 
007142 
007144 
007146 


007150 
007152 
007154 
007156 


007160 
007162 
007164 
007166 


007:70 
007172 
007174 
007176 


007200 
007202 
007204 
007206 


007210 
007212 
607214 
007216 


29-SEP-77 09: 55 


060370 
065451 
066066 
066612 


060411 
065451 
066066 
066612 


060432 
065451 
066066 
066612 


061607 


060347 
064664 
066066 
066612 


060411 
064664 
066066 
066612 


060432 
064664 
066066 
066612 


060057 
064116 
065530 
066462 


060115 
064664 
065530 
066462 


061640 
065172 
065530 
066462 


7ERR 141 
EM1i8 
sERR 142 
/ERR 143 
;ERR 144 
SERR 145 
;ERR 146 
>ERR 147 


;ERR 150 


7ERROR 154 


a) 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 64 
ERROR POINTER TABLE 


;MULT ATTN 
AFTER TMO 


AO ERROR 
;AFTER SEEK & IMMED RELEASE 


;NO RDY 
; AFTER CLEAR CML 


NO ATTN 
;AFTER SEEK & IMMED RLS 


*>RE-TRIGGER NO GOOD 
AFTER RE-SEIZE MIDWAY THRU TMO 


SE* 0064 









UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
DZR6GA. P11 55 


29-SEP-77 O9: 


007220 062020 
007222 064116 
007224 065530 
007226 066462 








N 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 65 
ERROR POINTER TABLE 


ATT: 


NOT CLEARED 


SEQ 0065 


: 5 8 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 66 SEQ 0066 
DZROGA. P11 29-SEP-77 09: 55 ERROR POINTER TABLE ’ 
3351 007230 061313 EN29 PORT AVAIL-TIMERS NOT INHiB. 
3352 007232 065330 DH4S5 +;BEFORE RLS WHEN UNLOADED 


3353 007234 065530 OT! 








C 6 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 67 SEQ 0067 
DZROGA. P11 29-SEP-77 09: 55 ERROR POINTER TABLE 


3354 007236 066462 

3355 ERR 156 R 
3356 007240 060115 EmM13 ;NO ATTN 

3357 007242 064245 DH25 ;AFTER SEEK CMD 
3358 007244 065530 OT1 

3359 007246 066462 

3360 ;ERR 157 

3361 007250 061402 EN31 ;PCRT NOT AVAIL 
3362 007252 064245 OH25 ;RFTER SEEK CMD 
3363 007254 065530 DT1 

3364 007256 066462 OF 1S 

3365 > ERROR 160 

3366 007260 061444 N ;ATTN SET 

3367 007262 064664 DH38 +AFTER SEEK & IMMED RLS 
3368 007264 065530 DT1 

3369 007266 066462 DF10 

3370 ERR 161 

3371 007270 060347 EM17 ;MSG AD ERROR 
3372 007272 064245 DH25 ;AFTER SEEK CMD 
3373 007274 066066 0T13 

3374 007276 (066612 OF 21 

3375 ERR 162 

3376 007300 060370 EM18 

3377 007302 064245 DH25 

3378 007304 066066 0T13 

3379 007306 066612 DF 21 

3380 7ERR 163 

3381 007310 060411 EmM19 

3382 007312 064245 DH25 

3383 007314 066066 D0T13 

3384 007316 066612 DF 21 

3385 ;ERR 164 

3386 007320 060432 EM20 

3387 007322 064245 DH25 

3388 007324 066066 DT13 ; 
3389 007326 066612 OF 21 > 

3390 7ERR 165 

3391 007330 060347 EM17 ;MSG AD ERROR 
3392 007332 062760 ‘ DHS ;AFTER THO 
3393 007334 066066 D0T13 

3394 007336 066612 DF 21 

3395 >ERR 166 

3396 007340 060370 EMi8 

3397 007342 062760 DHS 

3398 007344 066066 0T13 

3399 007346 066612 DF 21 

3400 >ERR 167 

3401 007350 060411 EM19 

3402 007352 062760 DHS 

3403 007354 066066 0T13 

3404 007356 066612 OF 21 

3405 -ERR 170 

3406 007360 060432 E—N20 

3407 007362 062760 DHS 

3408 007364 066066 0T13 


3409 007366 066612 OF 21 





D 6 
UNIBUS RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC MACY11 30(104%6) 29-SEP-77 10:08 PAGE 68 SEQ 0068 
DZR6GA. P11 29-SEP-77 09: 55 ERROR POINTER TABLE 


3410 *ERROR 171 

3411 007370 060057 EM12 +NO_RDY 

3412 007372 064371 DH30 ;AFTER READ HEADER CMD 
3413 007374 065530 OT! 

3414 007376 066462 DF 10 

3415 ERROR 172 

3416 007400 061402 EM31 ;PORT NOT AVAIL 

3417 007402 064502 DH35 ;AFT RELEASE 

3418 007404 065530 OT1 

3419 007406 066462 DF 10 

3420 ERROR 173 

3421 007410 062053 EM63 DLT SET 

3422 007412 064371 DH30 

3423 007414 065530 OT1 

3424 007416 066522 DF 15 

3425 7ERROR 174 

3426 007420 060453 EN21 >CERR SET 

3427 007422 064371 DH30 

3428 007424 065530 OT1 

3429 007426 066522 DF 15 

3430 7ERROR 175 

3431 007430 061713 EM39 7;CYL DIFF NOT CLEARED 
3432 007432 063310 DH10 ;AT END OF HEAD LOADING 
3433 007434 065530 OT1 

3434 007436 066462 DF 10 

3435 /ERROR 176 

3436 007440 061762 EN4O CYL ADDR NOT CLEARED 
3437 007442 063310 DH10 

3438 007444 065530 DT1 

3439 007446 066462 OF 10 

3440 /ERROR 17 

3441 007450 061313 EN29 PORT AVAIL-TIMERS NOT INHIB 
3442 007452 065025 DH4 1 / DURING PECAL CHO 
3443 007454 065530 OT1 

3444 007456 066462 DF 10 

3445 ERROR 200 

3446 007460 060057 EM12 7>NO RDY 

3447 007462 064736 DH39 ;AFTER WRITE HEADER CMD 
3448 007464 065530 OT! 

3449 007466 066522 DF15 

3450 7ERROR 201 

3451 007470 060453 EM21 >CERR SET 

3452 007472 064736 DH39 

3453 007474 065530 OT1 

3454 007476 066522 DF 15 

3455 >ERROR 202 

3456 007500 062074 EM65 >READ HEADER ERROR 
3457 007502 062556 DH1 

3458 007504 065706 DT? 

3459 007506 066502 OF 14 

3460 7ERROR 203 

3461 007510 061402 EN31 PORT NOT AVAIL 

3462 007512 065025 DH4 1 >DURING RECAL CMD 
3463 607514 065530 OT1 

3464 007516 066462 DF 10 


3465 7ERROR 204 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. 29-SEP-77 09: 55 


Pil 


007520 
007522 
007524 
007526 


007530 
007532 
007534 
007536 


007540 
007542 
007544 
007546 


007550 
007552 
007554 
00755¢ 


007560 
007562 
007564 
007566 


007570 
007572 
007574 
007576 


007600 
007602 
007604 
007606 


007610 
007612 
007614 
007616 


007620 
007622 
007624 
007626 


007630 
007632 
007634 
007636 


007640 
007642 
007644 
007646 


007650 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


061544 
064245 
06£754 
0664 36 


061544 
064245 
065574 
0664 36 


C60453 
064245 
065530 
066462 


060347 
064502 
066066 
066612 


060370 
064502 
066066 
066612 


060411 
064502 
066066 
066612 


060432 
064502 
066066 
066612 


000000 
oco000 
000000 
000000 


000000 
000000 
000000 
006900 


000000 


0 
0 
0 
0 
+ ERROR = 


0 
0 


0 
*ERROR 206 
EM36 


7ERROR 215 
0 


0 
0 


0 
>ERROR 216 
0 


? 


0 
0 
0 
“ERROR 21 
0 


MACY11_ 30(1046) 
ERROR POINTER TABLE 


E 6 
29-SEP-77 10:08 PAGE 69 


CYL ADOR IN RKMR3Z INCORRECT 
;AFTER SEEK CMD 
\ 


CYL ADOR IN RKMR3Z INCORRECT 
AFTER SEEK CMD 


*CERR SET 


*MSG AD ERROR 
;AFTER RLS ISSUED 


SEQ 0069 


UNIBUS RKO6-RKO7 DUAL PORT + tag DIAGNOSTIC 


DZR6GA. 29-SEP-77 O09: 


Pil 


007652 
007654 
007656 


007660 
007662 
007664 
007666 


007670 
007672 
007674 
007676 


007700 
007702 
007704 
007706 


007710 
007712 
007714 
007716 


007720 
007722 
007724 
007726 


007730 
007732 
007734 
007736 


007740 
007742 
007744 
007746 


007750 
007752 
007754 
007756 


007760 
007762 
007764 
007766 


007770 
007772 
007774 
007776 


010000 
010002 


000000 
000000 
o00u000 


000000 
000000 
000000 
000000 


060347 
063741 
066066 
066612 


060411 
063741 
066066 
066612 


060453 
C63042 
065530 
066462 


061544 
063354 
065574 
0664 36 


000000 
000000 
000000 
000000 


060057 
064270 
065530 
066462 


060453 
064270 
065530 
066522 


060304 
063445 
065530 
066542 


000000 
000000 
000000 
000000 


000000 
000000 


>ERROR 2 


0 
0 


0 
7 ERROR = 


0 
0 


0 
*ERROR 221 
EM17 


DH1? 
DT13 


DF 21 
ERROR 222 
EM19 


DH17 
DT13 


DF 21 
7ERROR 223 


‘ERROR 226 
7ERROR 227 
"ERROR 230 


7EPROR 231 


MACY11 30(1046) 
ERROR POINTER TABLE 


F 6 
29-SEP-77 10:08 PAGE 70 


MSG AD ERROR 
MSG Al ERROR 


-CERR SET 
-AFT SCLR 


:CY¥L ADDR IN RKMR3Z BAD 
:AFT SEEK CMD 


>NO PDY 
-AFTEP READ DATA CMO 


:CERR SET 


- CANNOT READ BSE INFO 
[ON SEC 10. 12. 14 16 18- 20 


SEQ 0070 


UN!BUS 
DZR6GA 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


Pi 


010004 
010006 


010010 
010012 
010014 
010016 


010020 
010022 
010024 
010026 


010030 
010032 
010034 
010036 


010040 
010046 


010050 
010054 
010056 
010062 
010066 
010072 


010074 


010100 
010104 
010106 
010112 
010114 


010120 
910126 


000000 
000000 


060304 
065121 
065530 
066542 


000000 
000000 
000000 
000000 


062116 
065251 
065530 
066462 


C12737 
000402 


005037 
000005 
012706 
012746 
012746 
000002 


004737 


012706 
005026 
022706 
001374 
01270€ 


012737 
012737 


000001 


001336 
001100 


000000 
010074 


052260 


001100 
001140 
001100 


05036@ 900020 
000340 900022 


001336 


G 6 
MACY11_ 30(1046) 29-SEP-77 10:08 PAGE 71 


ERROR POINTER TABLE 


SEQ 0071 


0 
0 
*ERROR 233 
EM16 CANNOT READ BSE INFO 
DH4 2 ;0ON SECT 0,2,4,6,8 
OT1 
DF 17 
7ERROR 234 
0 
0 
0 
0 
ERROR 235 
EM69 ALIGN CARTRIDGE USED 
DH44 ;WILL BYPASS FORMAT & ALL R/W TESTS 
DT1 
OF 10 
.SBTTL PROGRAM SETUP 
PARSRT: MOV #1, PARAM ;SET FLAG FOR 220 START: INPUT PARAMETERS 
BR PRGSRT ; START PROGRAM 
START: CLR PARAM +200 START. DEFAULT 
PRGSRT: RESET CLEAR ALL INT ENABLE & INIT 
MOV @STACK, SP SETUP STACK POINTER 
MoV #PRO,.-(SP) ;PSW LOADED TO BE 
Mov #1%,-(SP) *LS1-11 COMPATABLE 
RTI *>ENQBLE ALL INTERRUPTS 
1$ JSR PC. S$TKINT ;SETUP KB VECTOR ADDR, PRIORITY 4 
+& TURN ON KB INTERRUPT 
/#9% CPU PRIORITY LEVEL NOW AT O 44% 
“*YK ANY DEVICE WHICH SETS ITS A&k* 
/4*k INTERRUPT ENABLE BIT WILL 44% 
-a*k SERVICED. 4k 
CLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 6 (IN ‘ST5') 
:RKOG CONTROLLER INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 5 IN ‘SETINT') 
>KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 
;ALL ‘'SYSMAC' TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
*>SYSMAC ‘SETUP’ 
_SBTTL INITIALIZe@ THE COMMON TAGS 
>; CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCNTAG, RO +7FIRST LOCATION TO BE CLEARED 
CLR (R6>+ +;CLERR MEMORY LOCATION 

CMP #SWR,R6 >; DONE? 

BNE -6 +;LOOP BACK IF NO 


MoV #STACK, SP +;SETUP THE STACK POINTER 


>; INITIALIZE A FEW VECTORS 


MoV RSSCOPE. dR IOTVEC ©; 10T VECTOR FOR SCOPE ROUTINE 
MoV #340, O#IOTVEC+2 © - LEVEL 7 


UNIBUS RKO6-RKO7? DUAL PORT ORIVE DIAGNOSTIC 


DZR6GA. P11 


010134 
010142 
010150 
010156 
010164 
010172 
010200 
010206 
010212 
010216 
010224 
010232 


010240 
010244 
010252 
010260 
010266 
010274 


010276 
010300 
010304 
010306 
010314 
010322 


010326 
010332 
010340 
010342 
010350 
010350 
010356 


010364 
010370 
010372 
010376 
010404 
010412 


010414 
010416 
010422 
010426 
010430 
010436 


010442 
010446 
010452 


29-SEP-77 09: 55 


012737 


012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 
012716 
000002 
012737 
012737 
012637 


005037 
132737 
001403 
012737 


012737 
012737 


012701 
005011 
012711 
012737 
012737 
000401 


022626 
062701 
020127 
001360 
012737 
005637 


004737 
005037 
005037 


050646 


010232 


000004 
010300 
177570 
177570 
177777 


010306 


000176 
000174 
000004 


001216 
000200 


001232 


010414 
000340 


172100 


000001 
050024 
000340 


000002 
172140 


000006 
000006 


043026 
001220 
001222 


000030 


170644 


001140 
001142 


001231 
901140 


000004 
000006 


000114 
000116 


000004 


MoV #., SLPERR 
++S1ZE FOR A HARDWARE SWITCH REG 


H 6 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 72 
INITIALIZE THE COMMON TAGS 


SERROR, OSHENTVEC 7 EMT VECTOR FOR ERROR ROUTINE 
#340, OHENTVEC+2 ; LEVEL 7 

STRAP. SETRAPVEC >; TRAP VECTOR FOR TRAP CALLS 
#340, SETRAPVEC+2; LEVEL 7 

RSPWRON, O#PWRVEC 7 POWER FAILURE VECTOR 

#340, OEPWRVEC+2 LEVEL 7 

SENDCT,SEOPCT +; SETUP END-OF-PROGRAM COUNTER 


STIMES ++ INITIALIZE NUMBER OF ITERATIONS 
SESCAPE ++ CLEAR THE ESCAPE ON ERROR ADDRESS 

#1, SERMAX ++ALLOW ONE ERROR PER TEST 

#. . SLPADR i+ INITIALIZE THE LOOP ADDRESS FOR SCOPE 


-; SETUP THE ERROR LOOP ADDRESS 
ISTER. IF NOT FOUND OR IT IS 


;;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


64S: 
655: 
66S: 


675: 
MEMPAR: 


3S: 


1$: 


OFERRVEC.-(SP) +; SAVE ERROR VECTOR 
RO4S,ORERRVEC +;SET UP ERROR VECTOR 


#OSWR, SHR ++ SETUP FOR A HARDWARE SWICH REGISTER 
SDDISP,DISPLAY +; AND A HARDWARE DISPLAY REGISTER 
#-1. OSWR ++ TRY TO REFERENCE HARDWARE SWR 

66% ++BRANCH IF NO TIMEOUT TRAP OCCURRED 


++AND THE HARDWARE SWR IS NOT = -1 


6558 ++BRANCH IF NO TIMEOUT 
#65%, (SP) +,>SET UP FOR TRAP RETURN 
#SWPREG, SWR ++POINT TO SOFTWARE SWR 


#DISPREG, DISPLAY 
(SP)+,Q#ERRVEC ;; RESTORE ERROR VECTOR 


SPASS +;CLEAR PASS COUNT 
RAPTSIZE,SENVM ;; TEST USER S!ZE UNDER APT 
67% ++YES,USE NON-APT SWITCH 
#SSWREG, SWR +7NO,USE APT SWITCH REGISTER 


#15. ERRVEC >SETUP TIMEOUT VECTOR 
#PR7, ERRVEC+2 

#MEMBAS, R1 *ADDR OF MEM CSR 

(R1) +SEE iF CAN REFERENCE 
#1, (R1) *+SET ENABLE BIT IF YES 


SMEMERR, MEMVEC ;LOAD VECTOR IF NO TIMEOUT 
#PR7, MEMVEC+2 
2$ 


(SP)+, (SP)+ +ADJ STACK 

#2,R1 > TRY NEXT CSR 

Ri, #MEMBAS+4O ++ yg TRIED ALL 
>BR | 


5 ; NO 
RERRVEC+2, ERRVEC ;RESTORE TRAP CATCHER 
ERRVEC+2 


PC, CLRFLG CLEAR DDUMP THRU UNITB 
SDE VCT 
SUNIT 


FIND OUT IF XXDP, ACT. APT; CHAIN OR OUMP MODE 


SEQ 0072 


| 6 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(104%6) 29-SEP-77 10:08 PAGE 73 


DZROGA. P11 


010456 
010462 
010464 
010470 
010476 
010500 
010504 
010510 
010514 
010520 


010524 
010530 
010532 
010536 
010542 
010546 
010552 
010556 
010562 
010566 


010570 
010576 
010600 


010666 


29-SEP-77 09: 55 


005737 
001014 
004737 
123727 
001010 
005237 
104401 
000137 
000137 
005237 


005737 
001902 
000137 
104401 
004737 
104401 
004737 
104401 
004737 
000427 


123727 
001007 
005237 
004737 
104491 
000402 
005237 


012737 
012737 
004737 
005237 


005037 
005037 
005037 
005037 
005037 


000042 


043046 
000041 


005424 
055743 
010524 
010570 
005432 


001336 


010622 
056014 
042126 
056067 
043274 
056121 
043322 


000041 


005426 
04 3046 
056223 


0054 30 


177440 
000210 
04 3354 
005462 


00527¢ 
005300 
005302 
001176 
001172 


000013 


000013 


001264 
001314 


INITIALIZE THE COMMON TAGS 


START1: TST 42 
BNE 


1$ BR IF AUTO 
JSR PC. TITLE ;MANUAL, TYPE PROG !D 
CMPB 41,413 +13=LOADED BY XXDP 
BNE 23 
INC DOUNP +SET RKO& DUMP MODE FLAG 
TYPE -MSG2 REPLACE DRO PACK W/SCRATCH & DO<XCR> 
JMP $T2 
i$: JMP ST3 
28: INC PPTP ;SET ACT/APT/PTP DUMP MODE FLAG 


CHECK IF ALL PARAMETERS DEFAULTED. IF NOT. BEGIN INPUT DIALOGUE 
;WITH OPERATOR. THE REPLY TO ‘DRIVES TO BE TESTED’ SHOULD BE 
*DRIVE NOS. SEPERATED BY COMMAS & TERMINATED ‘7 <CR> 

EX: DRIVES TO BE TESTED: 0,2,.4<CR> 
FOR DUAL PORT, ONLY EVEN NUMBERED DRIVES MUST BE TESTED 


ST2: TST PARAM 


BNE 1$ +BR IF 220 START 

JMP ST4¥ +200 START. DEFAULT & SIZE THE BUSS 
1$: TYPE »MSG3 ;DRIVES TO BE TESTED 

JSR PC, GDRVS *GET DR NOS. 

TYPE , MSG4 BUSS ADDR 

JSR PC, GBA GET BA 

TYPE -MSG5 +CONT INT VECTOR 

JSR PC, GINT GET INT VECTOR 

BR STs 
;AUTO MODE 


;CHECK IF LOADED BY XXDP OR OTHER. SET FLAGS & NO INPUT DIALOGUE. 
;DEFAULT ALL PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY 
>ON THE BUSS 


ST3: cHPe 41,8123 ;13=LOADED BY XXDP 
BN 15 
INC DDPCH ;SET RKO6 CHAIN MODE FLAG 
JSR PC, TITLE 
TYPE MSG? ;DRO NOT TSTO 
BR STY 
15: INC ACT11 ;SET ACT AUTO FLAG 
ST4. = MOV #177440, $BASE DEFAULT VALUE 
Mov #210, RKVEC ; DEFAULT VALUE 
JSR PC, SETINT 
INC SIZFLG ;D0 “SIZE THE BUSS" TEST 
STS: CLR UNLD ; INITIALIZE FLAGS 
CLR BADHOR ;USED IN ‘STOP’ ROUTINE 
CLR HPEND ;FOR VALID PROGRAM HALTS 
CLR SESCAPE 
CLR STHPS ;CLEAR RKO? FLAG 


UNIBUS 
DZR6GA. 


3746 
3747 
3748 
3749 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


Pil 


010672 
010700 
010704 
010710 
010714 
010722 
010730 
010734 
010740 
010744 
010752 
010756 
010762 
010766 


010770 
010772 
011000 
011004 
011010 
011014 
011020 
011024 


011026 
011030 


011032 
011034 
011040 


29-SEP-77 
012737 


000412 


022626 
012737 
005777 
005237 
013700 
012720 
012710 
000407 


022626 
000771 


022626 
104401 
006137 


09: 55 


005436 
001220 
001222 
005464 
000101 
010770 
170372 
005456 
001330 
011026 
170342 
005460 
001332 


011032 
170314 
005460 
001332 
047154 
000300 


056276 
042644 


001342 


056576 
000004 


000004 


000004 


MACY11 30(1046) 


INITIALIZE THE COMMON TAGS 


1$: 


3$: 


4S: 


#ORIVO. ORVPTR 
SDEVCT 

SUNIT 

UNITB 

#'A, MSG19A 
#1%, ERRVEC 
@LKS 

LCLKF 


LCVEC, RO 
#24, ERRVEC 
aPKS 


PCLKF 
PCVEC.RO 
3% 


(SP )+, (SP)+ 
#4$, ERRVEC 
aPKS 

PCLKF 
PCVEC,RO 
RCLOCK. (ROI+ 
#PR6, (RO) 
TST 


(SP )+, (SP)+ 
3$ 


(SP)+, (SP)+ 
-MSG13 
SEOP 


J 6 
29-SEP-77 
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+ SETUP 

+NO. OF DRVS DONE 

+; CURRENT DRV UNDER TEST 
+PORT A TESTING 

PORT A TESTING 

+ SETUP TIMEOUT ERROR VECTOR 
+SEE IF L-CLOCK THERE 
+PRESENT, SET FLAG. 

; VECTOR ADOR 


+SEE IF P-CLOCK THERE 
;PRESENT, SET FLAG 

+ VECTOR ADOR 

+L-CLOCK NOT THERE. CLEAR STACK 
;SEE IF P-CLOCK THERE 

PRESENT, SET FLAG 

VECTOR ADOR 

+ SERVICE ROUTINE FOR CLOCKS 
+;G0 TO NEXT TEST 

:P-CLOCK NOT THERE. CLEAR STACK 


*>NEITHER CLOCK THERE, CLEAR STACK 
NO CLOCKS PRESENT TESTS BYPASSED 


SEQ 0074 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


K 6 
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DZ2R6GA. P11 29-SEP-77 09: 55 BASIC CONTROLLER TESTS, SIZING & SETUP 
+55 . SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 
3780 5s RXXKXAAAAAAAAAAA AAA AA AAA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
tees ag 1 REFERENCE ALL CONTROLLER REGISTERS 
3783 re THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
3784 ;* CAN BE ACCESSED. THE INABILITY TO BE ACCESSED WILL 
3785 eS RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE. ANY 
3786 re ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER 
ice + TESTS AND JUMPING TO ‘END OF PASS' 
3789 5p RAEXAXAAAAAAAAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AA AAA AA AAA AAA AA ATE 
3790 011044 o0CO004 TST1: SCOPE 
3791 011046 012737 000001 001174 MOV #1,STIMES +00 1 ITERATION 
at 011054 012706 001100 MOV #STACK, SP s;RESTORE STK PTR 
3794 011060 012746 000000 MOV #PRO. -(SP) +RESET PSW TO PRIORITY O 
3795 011064 012746 011072 MOV #5$, -(SP) +& MAKE IT LS! COMPATABLE 
3796 011070 000002 RTI 
aad 011072 5S: 
3799 011072 012737 011216 900004 MOV #15, ERRVEC ;SETUP TIMOUT ERROR VECTOR 
3800 011100 013705 001264 MOV SBASE. RS +SETUP INDEX REG. 
3801 011104 005765 000000 TST RKCS1(R5) REFERENCE ALL THE 
3802 011110 005765 000010 TST RKCS2(R5) CONTROLLER REGISTERS 
3803 011114 005765 000002 TST RKWC (RS) 
3804 011120 005765 000004 TST RKBACRS) 
3805 011124 005765 000006 TST RKDACRS) 
3806 011130 005765 000012 TST RKDS(RS) > TIMEOUTS IN THIS SECTION 
3807 011134 005765 000014 TST RKER (RS) + INDICATE THAT THE CONTROLLER 
3808 011140 005765 000016 TST RKASOF (R5) ;REGISTERS CANNOT BE READ 
3809 011144 005765 000020 TST RKOC (RS) + TESTING SHOULD NOT PROCEED 
3810 011150 005765 000024 TST RKDB (RS) UNTIL THIS IS RCMEDIED 
3811 011154 005765 000025 TST RKMR1 (RS) 
3812 011160 005765 000034 TST RKMR2Z2(RS) 
3813 011164 005765 000036 TST RKMR3CRS) 
3814 011170 005765 000030 TST RKECPS(RS) 
ate 011174 005765 000032 TST RKECPTC(RS) 
3816 
3817 011200 012737 047736 000004 MoV #BADTNO,ERRVEC ;SETUP TIMEQUT HANDLER 
3818 011206 012737 O00340 000006 MoV #PR7, ERRVEC+2 
eo 011214 O00404 BR TST2 +;GO TO NEXT TEST 
3820 
3821 011216 022626 1$: cMP (SP )+, ‘SP)+ RESTORE STACK POINTER 
3822 011220 104007 ERROR 7? ;ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 
3823 011222 000137 042704 JMP SEOP1 
3824 
3825 
3826 5; MERAAAAAAAAAAA AAA AAA AAA AAA TAA AAA AAA AAA AAA AAA AAA AAA ATA A TS 
3827 *KTEST 2 S$1ZE THE BUSS 
3828 ‘* 
3829 :* THIS TEST 1S ENTERED ONLY IF ‘DRIVE SELECTION’ 1S DEFAULTED 
3830 it EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 
3831 ik MANUAL MODE. 
3832 | EVERY EVEN NUMBERED DRIVE (0.2.4.6) 1S ADDRESSED. 
3833 :k CONTROLLER ERROR (CERR) 1S EXAMINED AND IF NOT SET, THE 


SEQ 0075 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE ——a 
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011226 
011230 
011236 


011242 


011246 
011254 
011256 


011262 
011266 
011272 
011274 
011300 


011304 
011310 
011312 
011316 


011320 
011324 
011326 
011332 
011336 
011340 
011344 


011346 
011350 
011351 


011352 
011354 
011360 
011364 


011366 
011370 


011372 
011376 
011400 


011404 
011406 
011410 
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000004 
012737 
012706 


005237 


132737 
001002 
000137 


104401 
005037 
c05000 
012701 
013702 


032702 
001420 
022700 
001405 


010046 
104403 
001 
000 


022121 


000001 
001100 
001456 


000200 
011420 


056311 
0054 34 


C054 36 
001266 


000001 
000001 


061205 


010054 
0054 34 


001205 


000002 
000010 


0054 34 
012076 


010646 


001174 


001231 


* 36 3 3E 2¢ 3E 3E 


ee 


14S: 


15$: 


11%: 


168: 


17%: 


188: 


MACY11 30(1046) 


SIZE THE BUSS 


DRIVE WILL BE TESTED AS AN RKOE. 


L 6 
29-SEP-77 
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IF SET, THE “ree WILL BYPASS 


TESTING THAT ORIVE ONLY IF THE ERROR WAS A RESULT 


MOS, 


UFE OR NEO BEING SET; OR BOTH NED & DRA RESET IN- 


DICATING THE OTHER PORT IS ACCESSED. 
IF CERR DUE TO OTYE. ORIVE WILL BE TESTED AS AN RKO7. 


#1,STIMES 
#STACK, SP 


BYPCERR 


#8117, SENVM 
14% 
12$ 


-MSG10 
DRIVS 


RO 
#DRIVO,R1 
SDEVM, R2 


#BiTO.R2 
16% 
#B ITO. RO 
11% 


- EN28 
PRGSRT 
DRIVS 
(R1) 


, S9CRLF 
RO, -(SP) 


(R14, (R1)+ 
#2,.R0 


VERIFY 
75 
$Ts 


ay 7° apie on mate ieee amanmnarenieecteeaite tiga 


++D0 1 ITERATION 
RESTORE STK PTR 


D0 NOT DO ‘CKCERR' ROUTINE 


+o» 4 oe APT SELECTED DRIVES 
; ! 
ELSE DO NORM SIZING OR VERIFY 


+WILL TEST DRIVES 

+# OF DRIVES PRESENT 
+DRV ADDR 

ORV FLAG 

;APT DEVICE MAP 


+SEE IF ORV IN DEVICE MAP 
R IF NO 


7B 
*SEE IF ODD # DRIVE 
;BR 1F NO 


ONLY EVEN # ALLOWED IN SDEVM 
+RELOAD SDEVM & PRESS ‘CONTINUE ' 
+ RESTART 

*ELSE INCR DRIVE COUNT 

*+& SET DRIVE PRESENT FLAG 


+SAVE RO FOR TYPEOUT 
++ TYPE DRIVE & 

+:GO TYPE--OCTAL ASCII 
+: TYPE 1 DIGIT(S) 

++ SUPPRESS LEADING ZEROS 


;ADV PTR TO NEXT EVEN &@ 
ADD ORV ADDR TO NEXT EVEN & 
-ALL 4 TESTED? 


7BR IF YES 

;ELSE GET NEXT BIT OFF DEVICE MAP 
>& TRY AGAIN 

;SEE IF MORE ORIVES PRESENT 

>BR IF NO 


ELSE EXIT TEST & SETUP FOR FKO7'S 
+NO DRIVES FOUND IN SOEVN 


SETUP CORRECTLY & PRESS ‘CONTINUE' 
>TO TRY AGAIN 


SEQ 0076 


NM 6 
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aby 011414 000137 012076 205: JMP VERIFY ;D00 NOT SIZE. GO TO NEXT TEST 
3892 011420 012765 O00040 000010 12%: Mov @SCLR,RKCSZ2(RS) ; SUBSYSTEM CLEAR 

3893 011426 013737 001400 005352 MoV T10, TEMP 1 > SET TIMEOUT 

3894 011434 004737 O43466 JSR PC, FROY ;FIND RDY 

3895 011440 104120 ERROR 120 ;RDY NOT SET BY END OF SCLR 
3896 011442 005737 005462 TST SIZFLG ;$1ZE BUS? 

3897 011446 001762 BEG 20% ;BR IF NO 

3898 011450 104401 056311 TYPE -MSG10 sWILL TEST ORIVES 

3899 011454 005037 005434 CLR DRIVS ;# OF DRIVES PRESENT 

3900 011460 005000 CLR RO >DORV ADOR 

3901 011462 012701 005436 MoV #ORIVO,R1 ;ORV FLAG 

3902 011466 1$: 

3903 011466 104415 SCOP 1 

oo 011470 012706 001100 MoV #STACK. SP ;RESTORE STK PTR 

3906 011474 012765 oO00040 000010 MoV @#SCLR,RKCS2(R5) ; SUBSYSTEM CLEAR 

3907 011502 013737 001400 9005352 MOV T10, TEMP 1 +;SET TIMEOUT 

3908 011510 004737 043466 JSR PC, FRDY >F IND RDY 

3909 011514 104120 ERROR 120 ;RDY NOT SET BY END OF SCLk 
3910 011516 010065 000010 MoV RO. RKCS2(R5) >SELECT THE DRIVE ADOR 

3911 011522 012737 000001 005314 MoV #SELORV, HCS1 

3912 011530 053737 001170 005314 BIS STMP4, HCS1 ;ADD COT IF RKO7 

3913 011536 013765 005314 000000 MoV HCS1,RKCS1(RS5) ;GET STATUS 

3914 011544 013737 001412 005352 MOV TS0000. TEMP 1 

3915 011552 004737 044242 JSR PC. OLY ;DO DELAY TO CATCH MDS 
3916 011556 013737 001400 005352 MoV T10, TEMP 1 

3917 011564 004737 O43466 JSR PC, FRDY ;FIND RDY 

3918 011570 104117 ERROR 117 ;NO RDY AFTER SELECT DRIVE CMD. 
3919 011572 032737 100000 005214 BIT #CERR. HCS1 

3920 011600 001053 BNE 23 

3921 011602 013737 005342 005352 MoV HMR Z, TEMP 1 

3922 011610 042737 177770 005352 BIC # C<ORVMSK>, TEMP 1 

3923 011616 020037 005352 CMP RO, TEMP 1 >S/B SAME 

3924 011622 001020 BNE 3% 

3925 011624 005700 TST RO 

3926 011626 001003 BNE 4S 

3927 011630 005737 005426 TST DOPCH ;SEE iF XXDP CHAIN MODE 
3928 011634 001016 BNE 53 

3929 011636 005237 005434 4S. INC DRIvS > INC DRIVE COUNT 

3930 011642 005211 INC (R1) ;SET DRIVE PRESENT FLAG 
3931 011644 053711 001170 BIS STMPY, (R1) ;ADD COT IF RKO? 

3932 011650 104491 001205 TYPE , 9CRLF 

3933 011654 010046 MoV RO. -(SP) +, SAVE RO FOR TYPEOUT 

3934 >, TYPE OR & 

3935 011656 104403 TYPOS ;;GO TYPE--OCTAL ASCII 

3936 011660 001 . BYTE 1 >, TYPE 1 DIGIT(S) 

3937 011661 000 . BYTE 0 + SUPPRESS LEADING ZEROS 
te 011662 000403 BR 5$ 

3940 011664 004737 044260 35. JSR PC. BYP ; TYPE BYPASS OR & 

3941 011670 104001 ERROR 1 ;WRITTEN OR # DOES NOT MATCH RKMRZ OR & 
3942 

3943 011672 022121 5S: CMP (R1)+, (R14 ;ADV PTR TO NEXT EVEN & 
3944 011674 062700 000002 ADD #2.R0 ;ADV DRY ADDR TO NEXT EVEN & 


3945 011700 005037 001170 CLR STMP4 CLEAR FOR NEXT TRY 


N 6 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 78 SEQ 0078 
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3946 011704 022700 000010 CMP #8. .R0 + TESTED ALL 4 DRIVES? 
3947 011710 001266 BNE 1$ +BR IF NO 
3948 011712 005737 005434 TST DRIVS 
3949 011716 001065 BNE 10$ 
3950 011720 104076 ERROR 76 +NO DRIVES A ste ON BUSS 
3951 011722 000000 HALT ; SETUP CORRECTL 
aay 011724 000137 010646 JMP sts AND PRESS CONT INUE 
3954 011730 032737 O00040 005330 23%: BIT #OTYE. HER 
3955 011736 001405 BEQ 13$ 
3956 011740 012737 002000 001170 Mov COT. STMPY ADD COT 
3957 011746 000137 011466 JMP 1$ + TRY AGAIN 
3958 011752 032737 001000 005316 133%: BIT #MOS, HCS2 
3959 011760 001015 BNE 6 
3960 011762 032737 OO0400 005316 BiT #UFE,HCS2 
3961 011770 001015 BNE 7$ 
3962 011772 032737 000001 005326 BIT #ORA, HOS 
3963 012000 001015 BNE 8$ 
3964 012002 032737 010000 D053i6 BIT #NED, HCS2 
3965 012010 001424 BEQ 9S 
oe 012012 ©C00727 BR 58 
3968 012014 004737 044260 6: JSR PC, BYP ; TYPE BYP OR & 
3969 012020 104002 ERROR 2 *MOS DETECTED 
coe 012022 000723 BR 5$ 
1 
3972 012024 004737 044260 78. JSR PC. BYP 
3973 012030 104003 ERROR 3 7; UFE DETECTED 
ao 012032 000717 BR 5$ 
3976 012034 032737 010000 O0531e6 8%: BIT #NED, HCS2 
3977 012042 001675 BEQ 4§ 
3978 012044 104401 056500 TYPE »MSG15 : ORVE 
3979 012050 010046 Mov RO.-(SP) ;;SAVE RO FOR TYPEOUT 
3980 7, TYPE DOR# 
3981 012052 104403 TYPOS +:GO TYPE--OCTAL ASC!! 
3982 012054 001 .BYTE 1 >, TYPE 1 DIGITCS) 
3983 012055 000 .BYTE 0 +; SUPPRESS LEADING ZEROS 
3984 012056 104010 ERROR 10 DRA & NED BOTH SET 
oo 012060 000704 BR 5$ 
3987 012062 004737 044260 9S: JSR PC, BYP 
3988 012066 104094 ERROR 4 7NO DPA & NO NEL = QTHER PORT SELECTED 
3989 012070 000700 BP 5$ 
oo 012072 000137 012472 10$- SMP NUR V 
3991 
3992 012076 VERIFY: 
3994 
3995 >, RESTRASSSISATSTATSTASTATAAATTAAATATATTAAATAATAS AGATE AAAs eS ss 
3996 /STEST 3 VERIFY OPERATOR DRIVE SELECTIONS 
3997 a 


4 THIS TEST 1S ENTERED ONLY iF DRIVE SELECTION IS NOT 
8 DEFAULTED. EVERY EVEN NUMBERED DRIVE (9.2.4.6) 1S ADDRESSED & 
4009 8 CONTROLLER ERROR (CERR) 1S EXAMINED IF NOT SET. THE 
4 PROGPAM WILL ASSUME THE DOPIVE !S PRESENT AS AN PRUs 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 T3 


DZROGA. P11 


012076 
012100 
012106 
012112 
012114 
012120 
012120 
012122 


012126 
012134 
012142 
012146 
012150 
012154 
012162 
012170 
012176 
012204 
012210 
012216 
012222 
012224 
012232 
012234 
012242 
012250 
012254 
012256 
012260 
012262 
012266 
012270 
012274 
012300 
012304 
012306 


012310 
012314 
012316 
012320 
012322 
012326 
012330 


012332 
012340 


000004 
012737 
012706 
005000 
012701 


104415 
012706 


012765 
013737 
004737 
104120 
010065 
012737 
053737 
013765 
013737 
004737 
013737 
004737 
104117 
032737 
001037 
013737 
042737 
020037 
001015 
005711 
001402 
053711 
022121 
062700 
005037 
022790 
001305 
000475 


004737 
104001 
005711 
001762 
005337 
005011 
000756 


032937 
001405 


000001 
001100 


0054 36 


001100 


000040 
001400 
043466 


000010 
000001 
001170 
005314 
001412 
044242 
001400 
043466 


100000 
005342 


177770 
005352 


001170 


000002 
001170 
000010 


644260 


0054 34 


000040 


001174 


000010 
005352 


005314 
005314 
000000 
005352 


005352 
005214 


005352 
005352 


005330 


a 
3t 36 2G 34 3G 2G 2G 


Ww: 


1$: 


115: 


4S. 


35: 


12S: 


8 7 
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VERIFY OPERATOR ORIVE SELECTIONS 


IF CERR WAS SET. THAT DRIVE WILL BE BYPASSED 
ONLY IF THE ERROR WAS A RESULT OF MOS OR UFE SET OR BOTH 
NED & DORA RESET (WRONG PORT). IF CERR IS A RESULT OF 
NED ONLY, IT 1S CHECKED AGAINST THE INPUTTEC INFORMATION TO 
VERIFY IT WAS NOT SPECIFIED. 

IF CERR DUE TO OTYE. ORIVE WILL BE TESTED AS AN RKO?. 


co 
MOV #1,S$TIMES +00 1 ITERATION 
MOV #STACK, SP +RESTORE STK PTR 
CLR RO + DRIVE ADOR 
MoV #ORIVO.R1 DRIVE FLAG 
SCOP 1 
Mov #STACK, SP RESTORE STK PTR 
MOV #SCLR,RKCSZ2(R5) ; SUBSYSTEM CLEAR 
MoV T10. TEMP1 +SET TIME OUT 
JSR PC, FROY FIND ROY 
ERROR 120 . +NO ROY AFTER SCLR 
MOV RO. RKCS2(R5) ORV ADOR 
Mov #SELORV, HCS1 
BIS STMP4, HCS1 ;ADD COT IF RKO? 
MoV HCS1,RKCS1(R5) ;GET STATUS 
MOV TSO0000, TEMP 1 
JSR PC, OLY >D0 DELAY TO CATCH MOS 
MOV T10, TEMP 1 
JSR PC, FRDY *FIND RDY 
ERROR 117 >NO RDY AFTER SELECT DRIVE CMD. 
BIT #CERR,. HCS1 
BNE 2$ 
MOV HMRZ, TEMP 1 
BIC # C<DRVMSK>. TEMP 1 
CMP RO, TEMP1 *S7B SAME 
BNE 3$ 
TST (R1) 
BEQ 4$ 
BIS STMPY, (R1) +>SET RKO? FLAG 
CMP (R1)+, (RID+ ;ADV PTR TO NEXT EVEN & 
ADD #2,RO ADV DRV ADDR TO NEXT EVEN & 
CLR STMPY >CLEAR FOR NEXT DRIVE 
CMP -? RO 
BNE +MORE LEFT 
BR T$T4 +;GO TO NEXT TEST 
JSR Pc, BYP TRY BYPASS ORIVER 
ERROR i. ;WRITTEN DR# DOES NOT MATCH RKMR2 DRE 
TST (R1) 
BEQ 4$ >BRANCH IF NOT SPEC BY INPUT 
DEC DRIVS *DECREMENT TOTAL DRIVS 
CLR (R1) *CLEAR ORIVE FLAG 
BR 4$ 
BIT #OTYE. HER 
BEQ 13$ 


sae > eengiaiigae pense set ppmecens wags engin Fonts mene Em oe 
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DZR6GA. P11 29-SEP-77 09: 55 T3 VERIFY OPERATOR DRIVE SELECTIONS 
4058 or2302 012737 002000 001170 MoV #COT, STMPY + ADD COT 
me 94 012350 000137 012120 JMP 1$ > TRY AGAIN 
4061 012354 032737 001000 005316 1335: BIT #MDS, HCS2 
4062 012362 001027 i BNE 6% 
4063 012364 032737 OOO0400 005316 BIT #UFE,HCS2 
4064 012372 001027 BNE 7$ 
4065 0612374 032737 000001 005326 BIT #ORA, HOS 
4066 012402 001005 BNE 8$ 
4067 6012404 032737 O10000 005316 BIT #NED, HCS2 
4068 012412 001423 BEQ 9$ 
4069 012414 OO04%04 BR 10% 
4070 012416 632737 010000 O05316 8%: BIT #NED, HCS2 
4071 012424 001714 BEQ 11% 
4072 012426 005711 10S: TST (R1) 
nv oh 012430 001716 BEQ YS 
4074 
4075 012432 004737 044260 JSR PC, BYP ; TYPE BYPASS DRIVE 
4076 012436 104006 ERROR 6 
a 012440 000730 BR 12$ 
y 
4079 012442 004737 944260 6S: JSR PC. BYP ; TYPE BYPASS DRIVES 
4O80 012446 104002 ERROR 4 ;MDS DETECTED 
nant 012450 000724 BR 12% 
4 
4083 012452 004737 044260 7%: JSR PC, BYP 
4084 012456 104003 ERROR 3 ;UFE DETECTED 
4085 012460 000720 BR 12$ 
4086 
4087 012462 004737 044260 9S: JSR PC, BYP 
4088 012466 104004 ERROR 4 ;DRA & NED RESET - OTHER PORT SELECTED 
4089 012470 000714 BR 12$ 
4090 
4091 
4092 
4093 ; 
4094 ; THIS PART OF THE FROGRAM WILL BE REPEATED FOR EACH 
4095 ;DRIVE PRESENT 
4096 j 
4097 ; "SUNIT' CONTRINS THE ADDRESS OF THE DRIVE CURRENTLY 
4098 ;UNDER TEST 
4099 
4100 012472 005037 001456 NUDRV: CLR BYPCERR ; ENTER HERE FROM LAST TEST 
4101 ;ALLOW CHECKING CERR IN ‘FRDY' 
4102 012476 005037 001170 CLR STMPY >;CLEAR RKO7 FLAG 
4103 
4104 Pe $9555 5 50605000050 00000000000000000000000000000000000000000009 8 8 | 
4105 ;XTEST 4 FIND NEXT ORIVE TO BE TESTED 
4106 3x 
4107 7x THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
4108 oe ADDRESS IN 'SUNIT' & STMP4Y IS SET TO COT IF RKO? 
4109 is THROUGHOUT THE FOLLOWING TESTS. THE DRIVE TESTED IS 
4110 oe 4 THE DRIVE WHOSE ADDRESS IS IN ‘SUNIT' 
4111 ;x 
4112 Fe 835555909599 60050000000000000000000000000000000000000800200 980 | 

113 012502 oO00004 TST4: SCOPE 


SEQ 0080 





UNI BUS 
DZR6GA. 


RKO6-RKO7? DUAL PORT DRIVE —sa 
7 09: 55 


Pil 


012504 
012512 
012516 
012524 


012532 
012536 
012540 
012544 


012550 
012554 
012562 
012566 
012572 
012574 
012602 
012604 
012606 
012612 


012614 
012620 
012622 
012626 
012630 
012634 


012636 
012642 
012644 
012652 
012656 
012662 
012666 
012672 


012674 
012676 
012677 


012700 
012704 
012706 
012714 
012720 
012726 
012734 


012736 
012744 
012752 
012760 


29-SEP-7 


012737 
012706 
012737 
012737 


005737 
001004 
104401 
000137 


005037 
112737 
012701 
005737 
001403 
062737 
005711 
001003 
062701 
000770 


005737 
001406 
005737 
001003 
062701 
000757 


032711 
001403 
012737 
062701 
010137 
104401 
013700 
010046 


104403 
001 
000 


005737 
001014 
012737 
005037 
012737 
012737 
000423 


012737 
012737 
012737 
012737 


000001 
001100 
000004 
000004 


005434 


056260 
042704 


005464 
000101 
001342 
001220 


000002 


000004 


005426 
001222 
000004 


002000 


002000 
000004 
001342 
056500 
001222 


001170 


000632 
012776 
000777 
160017 


001456 
000400 
001777 
140017 


001174 


001214 
001102 


056576 


001222 


001170 


012770 


012772 
012774 


012770 
012776 
012772 
012774 


4S: 


5S: 


3: 


6S: 


MACY11 30(1046) 


D 7? 
29-SEP-77 


10:08 PAGE 81 


FIND NEXT ORIVE TO BE TESTED 


#1,STIMES 
STACK, SP 
#S$TN-1, STESTN 
#STN-1, STSTNM 


DRIVS 
$ 


y 
, MSG8 
SEOP 1 


UNITB 
#'A, MSG19A 
DRVPTR.R1 


#COT, (R1) 


6$ 

#COT, STMPY 
#4,R1 
R1,ORVPTR 
,MSG15 
SUNIT, RO 
RO, -(SP) 


oe 


» SCRLF 


STMPY 

7$ 

#032,LC 

E. DDT 

#777, MASK 
#160017, MASK1 
TSTS 


#1456.LC 

#0. DOT. E. DOT 
#1777, MASK 
#140017, MASK1 


;+00 1 ITERATION 
;RESTORE STK PTR 


ANY DRIVES PRESENT? 
+YES BRANCH 

ALL DRIVES TESTED 
+NO. GO TO END 


+ SETUP PORT A 


+ADOR OF NEXT DRIVE FLAG 

1S FIRST ORIVE BEING CHECKED 

+ YES, BRANCH 

+ INCR TO NEXT EVEN DRIVE 

+ 1S ORIVE PRESENT? 

-BR IF YES 

;ELSE INCR PTR TO NEXT EVEN DRIVE 
+& TRY AGAIN 


+DOP CHAIN MODE? 
>BR IF NO 

-ELSE SEE IF ORV O 
BR IF N 


; NO 
ELSE FIND NEXT EVEN DRIVE PRESENT 


>SEE IF DRIVE UNDER TEST IS RKO? 

*BR IF NO 

ELSE SET RKO? FLAG 

Hee Rte, OF NEXT EVEN DRIVE FLAG 
RIVE" 


, 


>; SAVE RO FOR TYPEOUT 
>;DRIVE # 

+;GO TYPE--OCTAL ASCII 
>; TYPE 1 DIGITS) 

;; SUPPRESS LEADING ZEROS 


> 29-SEP-77 


>SEE IF RKO? UNDER TEST 
7BR IF YES 
7;ELSE LOAD RKCO PARANERERS 


;>;GOTO NEXT TEST 
;LOAD RKO7 PARAMETERS 


— 7? } 

UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 82 SEQ 0082 
DZR6GA. P11 29-SEP-77 09:55 T4 FIND NEXT ORIVE TO BE TESTED 

athe 012766 000406 BR TSTS ++GOTO NEXT TEST 

4172 012770 9O00000 LC: 0 ;LAST CYL 

4173 012772 000000 MASK: Q 

4174 012774 900000 MASKi1: 0 

4175 012776 9000000 —E.D0T: O ; EXPECTED ORIVE TYPE TO E. AO 

4176 013000 000000 FC: 0 4 A pe a CYL 

4177 013002 0O00001 FCP 1: 1 FC+ 

ape 013004 PFSRT: “ENTER HERE FOR POWER FAIL RESTART 

1? 

car .SBTTL DUAL PORT TESTS 

4181 

4182 55 MAKI AAAA AAA AAA AAA AAA AAA TAA AAA AAT AAA ATA AAA ATA AAAS 

it + pol 5 TEST PORT ‘A’ SEIZE & TIMEOUT 

4184 ; 

4185 ;x VERIFY THAT THE ORIVE CON SE SEIZED & THAT THE PORT 

ie - TIMEOUT RELEASES THE DRIVE 

41 ; 

ed :x A. SET VOLUME VALID FOR BOTH PORTS & DO RECAL COMMAND 

41 ;% 

4190 | B. A SELECT DRIVE COMMAND 1S ISSUED THRU PORT ‘A’. 

4191 | THE PROGRAM VERIFIES THE DRIVE HAS BEEN SEIZED BY ‘DRIVE ‘ 

4192 a AVAILABLE’ SET. 

4193 :* 

4194 a I C. A SELECT DRIVE COMMAND 1S ISSUED THRU PORT ‘B' THE 

4195 if PROGRAM VERIFIES THAT ‘DRIVE AVAILABLE’ IS NOT SET 

4196 :< FOR PORT ‘'B’ & THAT CERR IS SET 

4197 a 

4198 a D. VERIFY THAT FOR ALL MESSAGES REQUESTED THRU PORT 'B'. (MSG 

4199 4” A0-A3, BO-B3) THAT MESSAGE 0 ALWAYS RETURNS FROM PORT B 

4200 a WHILE PORT 'A' IS SEIZED 

4201 74 

4202 * £. WAIT FOR THE PORT TIMEOUT TO OCCUR ON PORT ‘A’ BY 

4203 a CONTINUOUSLY CHECKING FOR ATTN ON PORT ‘B' 

4204 ; AFTER ATTN-B IS REC'D. A ORIVE SELECT COMMAND IS 

4205 oe ISSUED THRU PORT 'B' TO VERIFY THAT DRIVE AVAILABLE IS SET 

4206 | IN MSG AO. 

4207 ;x 

4208 Pe | MEASURE THE DURATION OF THE TIMEOUT & TYPE THE VALUE 

4209 a I FOR THE FIRST PASS ONLY. 

4210 ;2 

4211 re F. VERIFY THAT ONLY PORT ‘B’ GETS ‘OSC’ & ‘ATTN’ 

4212 ;8 

4213 - G. VERIFY THE DRIVE CLEAR COMMAND CLEARS ‘DSC’ & ‘ATTN’ 

4214 :e ON PORT 'B' BUT DOES NOT RELEASE THE DRIVE FROM PORT ‘B’. 

4215 pe 

4216 oe $505 05500555050000000000000000000000000000000009000805 0020008 | 

4217 013004 O00004 TSTS: SCOPE 

4218 013006 012737 000001 001174 MoV #1, STIMES ;;D00 1 ITERATION 

4219 013014 012706 001100 MOV aSTACK. SP 

4220 013020 012737 OO00000 005464 MoV #0, UNITB ;SETUP PORT A 

4221 013026 112737 000101 056576 MOVB #'A,MSGI9A 

4222 013034 013737 005466 001366 MOV TIMER, COUNT 

4223 013042 004737 047204 JSR PC. THO ;00Q TIMEOUT 

4224 


4225 013046 004737 045534 JSR PC, SUBCLR 








, 
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DZ2R6GA.P11 29-SEP-77 09:55 TS TEST PORT ‘A’ SEIZE & TIMEOUT 
4226 013052 104024 ERROR 24 ;CERR AFTER SCLR 
4228 
4229 013054 004737 044172 JSR PC, DRAV ;SEE IF ORIVE AVAIL 
4230 013060 104045 ERROR 45 ;PORT A NOT AVAIL AFTER TMO 
4231 013062 75: 
4232 013062 012765 100000 000000 Mov #CCLR, RKCS1(R5) 
4233 013070 013765 001222 000010 Mov SUNIT, RKCSZ(R5) 
4234 013076 063765 005464 000010 ADD UNITB, RKCS2Z(R5) 
4235 013104 012737 000003 005314 Mov #PACK, HCS1 
4236 013112 004737 043372 JSR PC, DOCMD ;D0 PACK CMD & GET CONTR RDY 
4237 013116 104116 ERROR 116 ;CONTR NOT RDY AFT PACK CMD 
W239 013120 032737 000100 005342 BIT #D. VV, HMR2 
4240 013126 001001 BNE 645 
W241 013130 104027 ERROR 27 ;VV¥ MOT SET AFTER PACK CMD 
W242 013132 64S: 
4243 013132 012737 042644 001176 MoV #SEOP, SESCAPE 
W244 013140 005737 005464 TST UNITB 
w245 013144 001022 BNE 2$ 
W246 013146 012737 000001 005464 MoV #1, UNITB ; SETUP PORT B 
W247 013154 112737 000102 056576 MOVE  #'B, MSGI9A 
W248 013162 013737 005466 001366 Mov TIMER, COUNT 
4249 013170 004737 047204 JSR PC. THO :00 TIMEOUT 
4 
4251 013174 004737 045534 JSR PC, SUBCLR 
4252 013200 104223 ERROR 223 ;CERR AFTER SCLR 
y 
4254 013202 004737 044172 JSR PC, DRAV ;SEE IF DROVE AVAIL 
W255 013206 104045 ERROR 45 ;PORT B NOT AVAIL AFTER TMO 
4256 013210 000724 BR 75 
¥257 013212 2. 
4258 
W259 012212 012765 100000 000000 Mov #CCLR, RKCS1CRS) 
W260 013220 013765 001222 000010 Mov SUNIT, RKCS2(R5) 
4261 013226 063765 005464 000010 ADD UNITB, RKCS2(R5) ;ADD 1 IF ON PORT B 
4262 013234 012737 000013 005314 MoV #RECAL, HCS1 
4263 013242 004737 043372 JSR PC, DOCMD ;DO RECAL CMD & GET CONTR RDY 
4264 013246 104124 ERROR 124 ;RDY NOT SET AFTER RECAL CMD 
426 
W266 013250 012765 000001 000026 nov #1, RKMRI(RS) = SELECT WORD 1 
4267 013256 004737 045146 JSR PC, GSTAT 
4268 013262 032737 020000 905342 BIT #D. RTZ. HMR2 
4269 013270 001001 BNE 655 
4270 013272 104070 ERROR 70 ;RTZ NOT SET DURING RECAL CMD 
4271 013274 013737 O01400 005354 655: MOV T10, TEMP2 ; SETUP TIMEOUT 
4272 013302 004737 044006 JSR Pc, FATTI ;FIND ATTN 
4273 013306 104055 ERROR 55 ;NO ATTN AFTER RECAL CMO 
4274 
4275 013310 012737 050340 005404 Mov #<D. DSC!D. DRA!D. SPIN!D. DRDY!D. V¥>.E. AO : EXPECTED MSG AO 
4276 013316 005037 005406 CLR E. BO ; EXPECTED MSG BO 
4277 013322 012737 001720 005410 Mov #<D. SPOK!D. CART!D. DOOR'D. BRHM!D. SSP>.£.A1 : EXPECTED Al 
4278 013330 012737 000001 005412 MOV #1,€. B1 ;MSG 1D FOR EXPECTED MSG B1 
4279 013336 005037 005414 CLR E.A2 ;EXPECTED MSG AZ 
4280 013342 012737 000002 005416 nov #2,£.B2 7MSG 1D FOR EXPECTED MSG 82 


4281 013350 012737 000003 005422 MOV #3,€.B3 >MSG 1D FOR EXPECTED MSG B3 





G 7? 
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DZ2R6GA.P11 29-SEP-77 09:55 TS TEST PORT ‘A’ SEIZE & TIMEOUT 
4282 
4283 013356 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, B1 
4284 013362 000007 .WORD = T.A2!T. 82!T. 82 7& MSGS SPECIFIED HERE 
4285 013364 104221 ERROR 221 ;MSG AO ERROR AFTER RECAL CMD 
¥286 013366 104066 ERROR 66 ;MSH BO ERROR 
4287 013370 104222 ERROR 222 ;MSG A1 ERROR 
4288 013372 104067 ERROR 67 ;MSG B1 ERROR 
4289 013374 012765 000002 000026 NOV #2, RKMR1(RS) 
4290 013402 004737 045146 JSR PC, GSTAT 
4291 013406 005737 001356 TST CYLDIF ;SEE IF MSG A2=0 
4292 013412 001401 BEQ 665 7BR IF YES 
4293 013414 104047 ERROR 47 ;MSG AZ NOT CLEARED AFTER RECAL CMD 
u294 013416 00&737 001360 66$: ‘TST CYLADD ;SEE IF MSG B2=0 
w295 013422 001401 BEQ 675 ;BR IF YES 
4296 013424 104050 ERROR 50 ;MSG B2 NOT CLEARED AFTER RECAL CMD 
4297 013426 675: 
4 
y299 013426 012765 100000 oc0000 Mov #CCLR, RKCS1(R5) 
4300 013434 013765 001222 900010 Mov SUNIT, RKCS2(R5) ; DRIVES 
4301 013442 063765 005464 000010 ADD UNITB,RKCS2(R5) ;ADD 1 IF ON PORT B 
4302 013450 012737 000005 005314 Mov ®CLEAR. HCS1 
4303 013456 004737 043372 JSR PC, DOCMD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
4304 013462 104151 ERROR 151 ;NO RDY AFTER DRIVE CLEAR CMO 
4305 013464 004737 043750 JSR PC. TSTATN ; TEST FOR ATTN 
4306 O1347C 000401 BR 68S 
4307 013472 104154 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
4308 013474 6Ss: 
4 
4310 013474 012737 010340 905404 Mov #<D. DRA!D. SPIN'D. DRDY!D. VU>.£. AO ; EXPECTED MSG AO 
4311 013502 005037 005406 CLR E. BO ; EXPECTED MSG BO 
W312 013506 012737 001720 005410 Mov #<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.E.A1 ;EXPECTED Al 
4313 013514 012737 000001 005412 MoV #1,€.B1 ;MSG 1D FOR EXPECTED MSG B1 
4314 013522 005037 005414 CLR E.A2 7 EXPECTED MSG AZ 
W315 012526 012737 000002 005416 MoV #2.€. 82 ;MSG 1D FOR EXPECTED MSG B2 
4316 013534 012737 000003 005422 Mov #3,£.83 ;MSG 1D FOR EXPECTED MSG B3 
431 
4318 013542 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AO, BO. Al, B1 
4319 013546 000003 “WORDT. A2!T. B2!0 ;& MSGS SPECIFIED HERE 
4320 013550 104033 ERROR 33 ;MSG AO ERROR AFTER DRV CLEAR CMD 
4321 013552 104034 ERROR 34 ;MSH BO ERROR 
4322 013554 104035 ERROR 35 ;MSG A1 ERROR 
4323 013556 104036 ERROR 36 ;MSG B1 ERROR 
4324 
4325 
4326 013560 012737 000000 005464 MoV #0. UNITB ; SETUP PORT A 
W327 013566 112737 000101 056576 MOVB = #'A, MSG19A 
4328 013574 013737 O05466 001366 Mov TIMER, COUNT 
4329 013602 004737 047204 JSR PC, THO ;00 TIMEOUT 
4330 
4331 013606 004737 045534 JSR PC, SUBCLR 
4332 013612 104024 ERROR 24 ;CERR AFTER SCLR 
4333 
4334 
4335 013614 004737 044172 JSR PC, DRAV ;SEE IF ORIVE AVAIL 
4336 013620 104045 ERROR 45 ;PORT A NOT AVAIL AFTER THO 


4337 013622 012737 014544 001176 MOV #5%, SESCAPE 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE epee: * 5 


DZR6GA. 


4338 
4339 
4340 
4341 
4342 
4243 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4 364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 


Pil 


013630 
013636 
013642 
013650 
013656 
013662 
013670 


013676 
013702 
013704 
013706 
013710 
013712 
013714 
013722 
013730 
013734 
013740 
013742 


013744 
013752 
013754 
013756 
013764 
013772 
014000 
014004 
014010 


014016 
014022 
014024 
014026 
014030 
014032 


014034 
014040 
014042 
014046 
014052 
014060 
014066 
014074 
014102 


014106 
014112 


014114 
014122 
014130 
014134 


29-SEP-77 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104077 
104100 
104101 
104102 
012737 
112737 
005037 
004737 
000401 
104103 


032737 
001001 
104130 
012737 
013737 
053737 
005037 
005037 
012737 


004737 
000000 
104104 
104105 
104106 
104107 


005737 
001402 
000137 
005037 
012765 
012737 
112737 
012737 
004737 


004737 
104045 


012737 
112737 
004737 
000401 


09: 55 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000001 
000102 
001176 
044172 


100000 


010100 
005404 
012776 
005406 
005412 
014544 


044274 


001216 


014544 
001176 
100000 
000000 
000101 
000360 
047114 


044172 
000001 


000102 
044172 


005404 


005410 
005412 


005416 
005422 


005464 
056576 


005314 


005404 
005410 
005410 


001176 


000000 
005464 
056576 
001366 


005464 
056576 


6S: 


8: 


? 


H 
MACY11 301046) 29-SEP-77 _ PAGE 85 
TEST PORT ‘A’ SEIZE & TIMEOUT 


i ate SPIN!D. Peet VV>.E. AO -; EXPECTED MSG AD 


CTEO MSG BO 
#<0. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.E.A1 -;EXPECTED Al 
#1,€.B1 +MSG 10 FOR EXPECTED MSG Bi 
E. AZ +EXPECTED MSG AZ 
#2,€. BZ sMSG 1D FOR EXPECTED MSG B82 
#3.€.B3 +MSG 10 FOR EXPECTED MSG B3 
PC, CHKMSG +CHECK MSGS AO, BO, Al, Bi 
0'0!0 +& MSGS SPECIFIED HERE 
77 ;MSG AO ERROR AFTER TIMEOUT 
100 MSH BO ERROR 
101 MSG A1 ERROR 
102 MSG B1 ERROR 
#1, UNITB ;SELECT PORT B BEFORE TIMEOUT OR RELEASE 
#'B,.MSG19A SETUP ERROR MSG FOR PORT B 
SESCAPE 
PC, DRAV +SEE IF DRIVE AVAIL 
1$ BR IF NOT AVAIL 
103 PORT B AVAIL BEFORE TMO OR RELEASE 
a 
130 :CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 
#<D. SPIN'D. V¥>.E. AD 
E. AOE. Al >MSG 0 & 1 SHOULD ALWAYS RETURN SAME 
E.ODT.E. Al 
a ;WORD 0 FOR PORT B 
.B1 
#5%, SESCAPE 
PC, CHKMSG ;CHECK MSGS AD, BO, Al, Bi 
0'0!0 *& MSGS SPECIFIED HERE 
104 +MSG AO ERROR WHILE PORT B UNAVAILABLE 
105 *>MSH BO ERROR 
106 >MSG Al ERROR 
107 MSG B1 ERROR 
SPASS 
8$ /BR IF FIRST PASS 
5$ 7ELSE EXIT TEST 
SESCAPE 
aCCLR, RKCS1(RS?) 
#0. UNI TB SETUP FOR PORT A AGAIN 
#'A,MSG19A 
#360, COUNT >SETUP 4 SEC TIMEQUT 
PC, CLKON > TURN ON CLOCK 
PC, DRAV 
45 >PORT A NOT AVAIL AFTER TIMEOUT 
#1, UNITB /;SELECT PORT B BEFORE TIMEQUT OR PELEASE 
#'B,MSG19A 
PC. ORAV SEE IF PORT B DRIVE AVAIL 
34 /BR IF NOT AVAIL 





UNI BUS 
DZR6GA. 


Pil 
014136 


014140 
014146 
014152 
014156 
014162 


014164 
014170 
014174 


014176 


014204 
014212 
014216 
014224 
014232 
014236 
014244 


014252 
014256 
014260 
014262 
014264 
014266 
014270 
014274 
014302 
014310 
014314 
014316 


014320 
014326 
014334 


014342 
014350 
014356 
014364 
014372 
014376 
014400 
014404 
014406 
014410 


014410 
014416 
014422 
014430 
014436 
014442 
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104103 


012765 
013704 
063704 
004737 
104110 


004737 
004737 
104045 


012737 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104077 
104100 
104101 
104102 
005037 
012737 
112737 
004737 
000401 
104111 


012737 
012737 
112737 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 


100000 
001222 
005464 
044214 


047162 
044172 


014544 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001176 
000000 
000101 
043750 


014544 
000001 
000102 


100000 
001222 
005464 
000005 
043372 


043750 


010340 
005406 
001720 
000001 
005414 
000002 


000000 


001176 
005404 


005410 
005412 


005416 
005422 


005464 
056576 


001176 
005464 
056576 


000000 
000010 


000010 
005314 


005404 


005410 
005412 


005416 


RKOG-RKO7? DUAL PORT DRIVE -intetiony 


35: 


4S: 


695: 





? 


1 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 86 SEQ 0086 


TEST PORT ‘A’ SEIZE & TIMEOUT 

ERROR 103 ;PORT B AVAIL BEFORE TMO OR RELEASE 
MOV #CCLR, RKCSICRE) 

MOV SUNIT,. RY 

ADD UNI TB, RY 

JSR PC, FATTS 

ERROR 110 NO ATTN ON PORT B TO ALLOW SEIZE 
JSR PC, CLKOF 

JSR PC, DRAV +SEE IF PORT B DRIVE AVAIL 

ERROR 45 +PORT B NOT AVAIL 

MOV #5%, SESCAPE 

MoV #<D. OSC!D. ORA!D. SPIN'D. ORDY'D. VW>.E. AO EXPECTED MSG AO 
CLR E.B0 EXPECTED MSG BO 

MOV #<D. SPOK'D. CART!D. DOOR!D. BRHM'D. SSP>.E. Al ;EXPECTED Al 
MOV #1,€.B1 ;MSG ID FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 

MOV #2,€.B2 +MSG 1D FOR EXPECTED MSG B2 

MoV #3,E.B3 *MSG 1D FOR EXPECTED MSG 83 

JSR PC, CHKMNSG ; CHECK MSGS AO. BO. Al. Bi 

.WORD 0!9!0 7& MSGS SPECIFIED HERE 

ERROR 77 >MSG AO ERROR AFTER TIMEOUT 

ERROR 100 +MSH BO ERROR 

ERROR 101 MSG Al ERROR 

ERROR 102 MSG B1 ERROR 

CLR SESCAPE 

MOV #0, UNI TB ;SETUP FOR PORT A 

MOVB #'A,MSG19A 

JSR PC, TSTATN ; TEST FOR ATTN ON PORT A 

BR 4§ 

ERROR 111 >PORT A ATTN SET W/O REQUEST PENDING 
MOV #55, SESCAPE 

MoV #1,UNITB >SETUP FOR PORT B 

MOVB #'6,.MSG19A 

MoV aCCLR, RKCS1(R5) 

MoV SUNIT,RKCSZ2(R5) ; ORIVER 

ADD UNITB.RKCS2(R5) ;ADD 1 IF ON PORT B 

MoV #CLEAR, HCS1 

JSR PC, DOCND +DO DRIVE CLEAR CMD & GET CONTR RDY 
ERROR 151 ;NO RDY AFTER DRIVE CLEAR CMD 

JSR PC, TSTATN TEST FOR ATTN 

BR 63% 

ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CHD 
MoV #<D. DRA'D. SPIN'D. DRDY!D. VW¥>.E. AO ;EXPECTED MSG AD 
CLR E. 80 + EXPECTED MSG BO 

MOV #<D. SPOK!'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 -EXPECTED Al 
MoV #1,€.B1 *MSG 1D FOR EXPECTED MSG B1 

CLR E.A2 EXPECTED MSG AZ 

MoV #2,E. B2 >MSG 1D FOR EXPECTED MSG 62 


UNI BUS 
DZR6GA. 


4450 
4451 
4452 
4453 
4uSy 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 


Pil 
014450 


014456 
014462 
014464 
014466 
014470 
014472 


014474 
014500 
014504 
014510 
014512 
014516 
014520 
014522 
014526 
014530 
014534 
014540 


014544 
014550 


014554 
014556 
014564 
014570 
014576 
014604 
014612 


014616 
014622 


014624 
014630 
014632 


014640 
014646 
014652 
014660 
014666 
014672 
014700 
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012737 


004 737 
000003 
104033 
104034 
104035 
104036 


012701 
163701 
012746 
010146 
004737 
012616 
012601 
104401 
010146 
004737 
004737 
104401 


005037 
004737 


000004 
012737 
012706 
012737 
112737 
013737 
004737 


004737 
104024 


004737 
104045 
012737 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


000003 
044274 


000360 
001366 
000021 


054270 


056602 


054174 
054230 
056663 


001176 
047162 


000001 
001100 
000001 
000102 
005466 
047204 


045534 


044172 
015554 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


005422 


001174 
005464 


056576 
001366 


001176 
005404 


005410 
005412 


005416 
005422 


RKO6-RKO7? DUAL PORT DRIVE sapeann | 


5S: 


MACY11 30(104%6) 


TEST PORT ‘A’ 

MOV #3,€. B83 
JSR PC, CHKNSG 
.WORD T.AZ!T.82!0 
ERROR 33 

ERROR 34 

ERROR 35 

ERROR 36 

MoV #360, R1 
SUB COUNT, R1 
MOV #17. ,-CSP) 
MOV R1,-(SP) 
JSR PC, d#SMULT 
MOV (SP)+, (SP) 
MOV (SP)+,R1 
TYPE -4SG20 
MOV R1,-(SP) 
JSR PC, $SB2D 
JSR PC, SSUPRS 
TYPE -MSG22 

CLR SESCAPE 
JSR PC, CLKOF 


J 7 
29-SEP-77 
SEIZE & TIMEOUT 


10:08 PAGE 87 


sMSG 10 FOR EXPECTED MSG BS 


+ CHECK MSGS A... BO. Al. B1 

S SPECIFIED HERE 
+MSG AO ERROR AFTER DRV CLEAR CMD 
+MSH BO ERROR 
*+MSG Al ERROR 
MSG B1 ERROR 


;R1-COUNT=R1 
;;PUT THE MULTIPLER ON THE STACK 
;;PUT THE MULTIPLICAND ON THE STACK 
+;CALL THE MULTPLY ROUTINE 
;;DISREGARD THE MSB'S 
;;GET THE LSB‘'S OF THE PRODUCT 
;PORT TIMEOUT 
;PUSH BINARY ONTO STACK 
; CONVERT TO ASCII 
; TYPE IT 
MS 


Fe $$ 0059055095099 9 99> 99 9 955999 299 959959299299 0992290259090 3 70 28: 
TEST PORT 'B' SEIZE & TIMEOUT 


THE PREVIOUS TEST IS REPEATED FOR PORT ‘B'. 


a 6 


: 


#1,STIMES 
#STACK. SP 
#1, UNITB 
#'B,.MSG19A 
TIMER, COUNT 
PC, TNO 


PC, SUBCLR 
24 


PC, DRAV 
45 
#55, SESCAPE 


‘ees SPIN!D. ORDY!D. VV>.E. AO 
#<D. SPOK!D. CART!D. DOOR 'D. BRHM'D. SSP>.E. Al 


,8 
[OOOO OOOO OOOO OOOO OOOO OOO OIE 
TST6: SCOPE 


+700 1 ITERATION 
SETUP PORT B 


-D0 TIMEOUT 


;CERR AFTER SCLR 


*SEE IF DRIVE AVAIL 
;PORT B NOT AVAIL AFTER TMO 


EXPECTED MSG AD 
EXPECTED Al 


EXPECTED MSG BO 


*MSG ID FOR EXPECTED MSG B1 
+ EXPECTED MSG AZ 

+MSG 1D FOR EXPECTED MSG B2 
*MSG 1D FOR EXPECTED MSG B3 


K 7 

UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY:1 3001046) 29-SEP-77 10:08 PAGE 88 SEQ 0088 
DZR6GA. P11 29-SEP-77 09: 55 T6 TEST PORT ‘'B’ SEIZE & TIMEOUT 

4506 014706 004737 044274 JSR PC, CHKMSG + CHECK MSGS AO, BO, Al, Bi 

4507 014712 000000 .WORD O!0!0 +& MSGS SPECIFIED HERE 

4508 014714 104077 ERROR 77 sMSG AO ERROR AFTER TIMEOUT 

4509 014716 104100 ERROR 100 *+MSH BO ERROR 

4510 014720 104101 ERROR 101 MSG Al ERROR 

4511 014722 104102 ERROR 102 *MSG B1 ERROR 

4512 014724 012737 OO00000 005464 MOV #0, UNITB ;SELECT PORT A BEFORE hee ad OR RELEASE 

4513 014732 112737 000101 056576 MOVB #'A, MNSG19A ;SETUP ERROR MSG FOR PORT A 

4514 014740 005037 001176 CLR SESCAPE 

4515 014744 004737 044172 JSR PC. ORAV +SEE IF ORIVE AVAIL 

4516 014750 000401 BR 1$ BR IF NOT AVAIL 

+ 014752 104103 ERROR 103 +PORT A AVAIL BEFORE TMO OR RELEASE 

4519 014754 032737 100000 005314 1%: BIT #CERR, HCS1 

4520 014762 001001 BNE 6$ 

4521 014764 104130 ERROR 130 ;CERR NOT SET AFTER SEL DRIVE & DRIVE NOT AVAIL 

4522 014766 012737 010100 O05404 6%: MOV #<D. SPIN'D. VV¥>.E. AD 

4523 014774 013737 005404 005410 MOV E. AOE. Al *MSG 1 & O SHOULD ALWAYS RETURN SAME 

4524 015002 053737 012776 905410 BIS E. ODT.E. Al 

4525 015010 005037 005406 CLR E. 80 ;WORD O FOR PORT A 

4526 015014 005037 005412 CLR E. Bi 

me 015020 012737 015554 001176 MOV #55, SESCAPE 

4529 015026 004737 044274 JSR PC. CHKMNSG ;CHECK MSGS AO. BO. Al. B1 

4530 015032 000000 .WORD O'!0!0 >& MSGS SPECIFIED HERE 

4531 015034 104104 ERROR 104 +MSG AO ERROR WHILE PORT A UNAVAILABLE 

4532 015036 104105 ERROR 105 MSH BO ERROR 

4533 015040 104106 ERROR 106 MSG Al ERROR 

4 015042 104107 ERROR 107 *+MSG B1 ERROR 

4 

4536 015044 005737 001216 TST SPASS 

4537 015950 001402 BEQ 8$ ;BR IF FIRST PASS 

4538 015052 000137 015554 JMP 5$ /ELSE EXIT TEST 

4539 015056 005037 001176 8$: CLR SESCAPE 

4540 015062 012765 100000 000000 MOV #CCLR, RKCS1I(RS) 

4541 015070 012737 000001 005464 MOV #1, UNITB >SETUP FOR PORT B AGAIN 

4542 015076 112737 000102 056576 MOVB #'B. MSG19A 

4543 015104 012737 000360 001366 MoV #360, COUNT >SETUP 4 SEC TIMEOUT 

4544 015112 004737 047114 JSR PC. CLKON ; TURN ON CLOCK 

4545 

4546 015116 004737 044172 JSR PC, ORAV 

4547 015:22 104045 ERROR 45 ;PORT B NOT AVAIL AFTER TIMEOUT 

4548 

4549 015124 012737 000000 005464 MoV #0, UNITB SELECT PORT A BEFORE TIMEOUT OR RELEASE 

4550 015132 112737 000101 056576 MOVB #'A, MSG19A 

4551 015140 004737 044172 JSR PC, DRAV SEE IF PORT A DRIVE AVAIL 

4552 015144 000401 BR 33 7;BR IF NOT AVAIL 

4553 015146 104103 ERROR 103 PORT A AVAIL BEFORE TMO OR RELEASE 

4554 

4555 015150 012765 100000 900000 2%: MOV ACCLR, RKCS1(R5) 

4556 015156 013704 001222 MOV SUNIT,R4 

4557 015162 063704 005464 ADD UNITB, RY 

4558 015166 004737 044214 JSR PC, FATTS 

4559 015172 104110 ERROR 110 >NO ATTN ON PORT A TO ALLOW SEIZE 

4560 


4561 015174 004737 047162 JSR PC, CLKOF 








L 7? 

UNIBUS RKO6-RKO7 DUAL PORT DRIVE siomanean ' % MACY11 30(1046) 29-SEP-77 10:08 PAGE 89 SEQ 0089 
DZROGA. P11 29-SEP-77 09: 55 TEST PORT *B' SEIZE & TIMEOUT 

4562 015200 004737 044172 JSR PC, DRAV +SEE IF PORT A DRIVE AVAIL 

~ ors 015204 104045 ERROR 45 +;PORT A NOT AVAIL 

xen 015206 012737 015554 001176 Mov #5$, SESCAPE 

4567 015214 012737 050340 005404 MOV #<D. OSC 'D. ORA!D. SPIN'D. DROY'D. VV>.E.AQ -EXPECTED MSG AO 

4568 015222 005037 005406 CLR E. B80 sEXPECTED MSG BO 

4569 015226 012737 001720 005410 MoV #<D. SPOK!D. CART!D. yy BRHM!D. SSP>.E.A1 -;EXPECTED Al 

4570 015234 012737 000001 005412 MOV #1,€.B1 sMSG 10 FOR EXPECTED MSG Bi 

4571 015242 005037 005414 CLR E. AZ sEXPECTED MSG AZ 

4572 015246 012737 000002 005416 MoV #2,E. B2 ;MSG 1D FOR EXPECTED MSG B2 

aw <f 015254 012737 000003 005422 Mov #3.€.B3 +MSG 1D FOR EXPECTED MSG B3 

4575 015262 004737 044274 JSR PC, CHKMSG +CHECK MSGS AO. BO. Al. Bi 

4576 015266 000000 .WORD O!0!0 +& MSGS SPECIFIED HERE 

4577 015270 104077 ERROR 77 +MSG AO ERROR AFTER TIMEOUT 

4578 015272 104100 ERROR 100 MSH BO ERROR 

4579 015274 104101 ERROR 101 MSG Al ERROR 

4580 015276 104102 ERROR 102 *+MSG Bi ERROR 

4581 015300 005037 001176 CLR SESCAPE 

4582 015304 012737 000001 905464 MoV +5 UNITB SETUP FOR PORT B 

4583 015312 112737 000102 056576 MOVB #'B, MSG19A 

4584 015320 004737 043750 JSR PC, TSTATN TEST FOR ATTN ON PORT B 

4585 015324 000401 BR 4§ 

mee 015326 104111 ERROR 111i ;PORT B ATIN SET W/O REQUEST PENDING 

4 

4588 015330 012737 015554 001176 4S: MoV #55, SESCAPE 

4589 015336 012737 OO00000 005464 Mov #0, UNITB ; SETUP FOR PORT A 

or 015344 112737 000101 056576 MOVB #'A, MSG19A 

4591 

4592 015352 012765 100000 000000 MOV #CCLR, RKCS1(R5) 

4593 015360 013765 001222 000010 MOV SUNIT. RKCSZ2(R5) ; DRIVER 

4594 015366 063765 005464 000010 ADO UNITB.RKCS2(R5) ;ADD 1 IF ON PORT B 

4595 015374 012737 000005 005314 MoV #CLEAR. HCS1 

4596 015402 004737 043372 JSR PC, DOCMD >DO DRIVE CLEAR CMD & GET CONTR RDY 

4597 015406 104151 ERROR 151 +NO RDY AFTER DRIVE CLEAR CMD 

4598 015410 004737 043750 JSR PC, TSTATN > TEST FOR ATTN 

4599 015414 000401 BR 64S 

4600 015416 104154 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 

er 015420 64S: 

4o 

4603 015420 012737 010340 005404 MOV #<D. DRA'D. SPIN'D. DROY!D. VWW>.E. AQ ;EXPECTED MSG AD 

4604 015426 005037 005406 CLR E. BO +EXPECTED MSG BO 

4605 015432 012737 001720 005410 MoV #<D. SPOK'D. CART!D. DOOR !D. BRHM'D. SSP>.E. Al salen Al 

4606 015440 012737 000001 005412 MOV #1,€. B1 -MSG 1D FOR EXPECTED MSG B 

4607 015446 005037 005414 CLR E. AZ EXPECTED MSG AZ 

4608 015452 012737 O00002 005416 MoV #2,€.B2 7>MSG 1D FOR EXPECTED MSG B2 

4609 015460 012737 000003 005422 Mov #3.€. 83 +MSG 1D FOR EXPECTED MSG B3 

4610 

4611 015466 004737 044274 uSR PC, CHKMSG CHECK MSGS AO. BO. Al. Bi 

4612 015472 000003 .WORD = T.AZ2'T. B2!0 +& MSGS SPECIFIED HERE 

4613 015474 104033 ERROR 33 MSG AO ERROR AFTER ORV CLEAR CMD 

4614 015476 104034 ERROR 34 MSH BO ERROR 

4615 015500 104035 ERROR 35 MSG Al ERROR 

4616 015502 104036 ERROR 36 MSG B1 ERROR 


UNI BUS 
DZROGA. 


Pil 


015504 


015550 


015554 
015560 


015564 
015566 
015574 


015600 
015604 


015606 
015612 


015614 
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012701 


104401 


005037 
004737 


000004 
012737 
012706 


005737 
001042 


004737 
104024 


104401 
012765 
004737 
013701 
012704 
010446 
012703 


105014 


09: 


000360 
001366 
000021 


054270 


056667 


054174 
054230 
056663 


001176 
047162 


000001 
001100 


001216 


045534 


056512 
000003 
045146 
005342 
053762 


000003 


177760 
000060 


RKO6-RKO7 DUAL 3! +e are 


001174 


000026 


5$: CLR 


We Gs Ve Ve Ge Ge Be 


: he oe 96 26 06 36 26S: 
o 


MACY11 30(1046) 
TEST PORT 'B' SEIZE & TIMEOUT 


#360, R1 


(SP)+,R1 
-"SG23 
R1, - (SP) 
PC, $S820 
PC, SSUPRS 
-MSG22 


SESCAPE 
PC, CLKOF 


M 
29-SEP-77 
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+R1-COUNT=R1 
+;PUT THE MULTIPLER ON THE STACK 
++PUT THE MULTIPLICAND ON THE STACK 
++ CALL THE MULTPLY ROUTINE 
i DISREGARD THE MSB'S 
‘i THE LSB'S OF THE PRODUCT 
+PORT TIMEOUT 


+PUSH BINARY ONTO STACK 
4 notoage H TO ASCII 
| 


+ TYPE 


. 
’ 


a dneee and Sek a ee 
E 


PRINT ORIVE SERIAL NUMBER 


THIS TEST READS & "aeons by DRIVE SERIAL # FROM MSG AZ 
IN BCD ON THE 1'ST PASS 0 

1T ALSO TESTS THAT THE SERIAL # READ THRU BOTH PORTS 
ARE THE SAME. 


PUIOrriiitreeeitteeeeeiee cei eeoeteeeeeneeenececns 


SCOPE 


MoV 
MOV 


TST 
BNE 


#1, STIMES 
#STACK, SP 


SPASS 
TST10 


PC, SUBCLR 
24 


-MSG16 
#3, RKMRICRS) 


PC, GSTAT 
HMR 2, R14 
#SOCTVL, RY 


-RO 
#177760. RO 
#60, RO 
RO, (R4Y)+ 
R3 


1$ 
(R4) 


+00 1 !TERATION 


+;GO TO NEXT TST IF NOT 1ST PASS 


>CERR AFTER SCLR 


DRIVE SERIAL NO. 

*SELECT BYTE 3 

>GET STATUS 

*;GET SERIAL & 

GET ADDR CHAR BUFF 

> STORE ON STACK FOR SSUPRS 
+SETUP CHAR COUNT 

* INITIALIZE BIT POSITIONS 


+GET NEXT 4 BITS 


+GET WORKING COPY 

*CLEAR ALL BUT LOW 4 BITS 

> CONVERT TO ASCII DIGIT 

*+PUT ASCII DIGIT INTO CHAR BUFF 


*BR IF ALL 3 CHARS NOT DONE 
ELSE INSERT NULL TERMINATOR 


SEG 0090 


UNIBUS 
DZROGA. 


4674 

4675 
4676 

4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4YO86 
4687 
4688 
4689 
4690 


RKOb&-RKO? DUAL PORT DRIVE senate ' 


Pil 


29-SEP-77 09: 55 


015706 004737 054230 


015712 
015714 
015722 
015726 
015734 
015742 
015750 


015754 
015760 


01£762 
015766 
015770 


015776 
016004 
016016 


016012 
016020 
016624 


016026 
016034 
016036 


000004 
012737 
012706 
012737 
112737 
013737 
004737 


004737 
104024 


004737 
104045 
012765 


012737 
004737 
104131 


013737 
004737 
104132 


032737 


001401 
104210 


912737 


000001 
001100 
000000 
000101 
005466 
047204 


045534 


044172 
000012 
000017 
043372 


001412 
044106 


100090 


001174 
005464 


056576 
001366 


000020 
005314 


005352 


005314 


0054C4 


095410 
005412 


MACY11 30(1046) 
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PRINT ORIVE SERIAL NUMBER 


JSR PC, SSUPRS ; TYPE 
; TYPE -SCRLF + 29-SEP-77 
; TYPE -SCRLF + 29-SEP-77 


= DRA'D. SPIN'D. OROY'D V¥>.E AO 
8<D. SPOK'D. CART'D. DOOR'D BRHM'D SSP>.E Al 


a tat ta, & onan ae 


COMMAND SEIZE & ATTENTION 
‘DSC’ & ‘ATTN’ BITS AFTER A COMMAND. 


A. iSSUE A SEEK COMMAND TO CYLINDER 10 THRU PORT ‘A’. 


‘ATTN’ SETS FOR PORT ‘A’ 


C. VERIFY ‘ATTN’ REMAINS SET BEYOND TIMEOUT 


D. VERIFY A ORIVE CLEAR COMMAND RESETS ‘DSC’ & 
& DOES NOT RELEASE THE DRIVE FROM PORT ‘A’. 


‘ATTN’ 


AEKAAAAAAAKAAAAAAAA AAA AA AAA AEA AAA AAA AAA AA AAA AAA ASAE ATS 
10: 


+-D0 1 ITERATION 
+SETUP PORT A 


DO TIMEOUT 


*CERR AFTER SCLR 


+SEE IF DRIVE AVAIL 
PORT A NOT AVAIL AFTER THO 
*SEEK TO CYL 10. 


D0 SEEK CMD & GET CONTR READY 
7NO ROY AFTER SEEK CMD 
SETUP TIMEOUT 


: FIND ATIN 
NO ATTN AFTER SEEK CMO 


-CERR AFTER SEEK CMO 


EXPECTED MSG AD 
-EXPECTED At 


EXPECTED MSG 60 


MSG ID FOR EXPECTED SG B61 


a1 T 10 TEST PORT ' 
ix VERIFY THE OPERATION OF 
it 
+x 
it 8. VERIFY SEIZURE & THAT ‘DSC’ & 
ik ONLY AFTER SEEK COMPLETION 
it 
Pe 
;* 
58 
;k 
538 
TST SCOPE 
MoV #1, STIMES 
nov #STACK, SP 
nov #0. UNITB 
MOVB  #'A, MSG19A 
HOV TIMER, COUNT 
JSR PC, 1H 
JSR PC, SUBCLR 
ERROR 24 
JSR PC. DRAV 
ERROR 45 
Mov #10. - RKDC CRS) 
nov #SEEK. HCS1 
JSR PC, DOCMD 
ERROR 131 
Mov TS50000. TENP1 
JSR PC, FATT2 
ERROR 132 
BIT @CERR.HCSI 
BEQ 638 
ERROR 210 
éss 
nov 
CLR 
nov 
nov 81.€ Bt 
CLP E a2 


“EXPECTED MSG A2 


SEQ 0091 





2 i ian 


8 8 
ss RKO6-RKO? DUAL PORT DRIVE stincontains °° MACY11 30(1046) 29-SEP-77 10:08 PAGE 92 





ROGA.P11 29-SEP-77 09: 55 T10 TEST PORT 'A' COMMAND SEIZE & ATTENTION 
4730 016072 012737 o000002 005416 Mov #2,€.82 ;MSG 10 FOR EXPECTED MSG 82 
4731 016100 012737 000003 005422 MoV #3,£.83 ;MSG 10 FOR EXPECTED MSG B3 
4733 016106 004737 044274 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bt 
4734 016112 000000 .WORD O!0!0 ;& MSGS SPECIFIED HERE 
4735 O16114 104161 ERROR 161 ;MSG AO ERROR AFTER SEEK CMD 
4736 O16116 104162 ERROR 162 7MSH BO ERROR 
4737 016120 104163 ERROR 163 7MSG A1 ERROR 
4738 016122 104164 ERROR 164 ;MSG B1 ERROR 
4740 016124 004737 045756 JSR PC, ROCYLA ;READ CYL ADOR 
4741 016130 023727 001360 000012 CMP CYLADD, #10. 7SEE IF CYL 10. 
W742 016136 001415 BEQ 64$ ;BR IF YES 
4743 016140 012737 000000 001344 Mov #0, FRCYL 
W744 016146 012737 000012 001346 Mov #10., TOCYL 
w74S 016154 012737 000012 001354 Mov #10. ,CALDIF 
W746 016162 012765 000012 000020 Mov #10.,RKDC(R5) REFRESH RKDC 
474? 016170 104224 ERROR 224 ;DID NOT SEEK TO CYL 10 

4 
W749 016172 012737 000226 001366 64S: Mov #150. , COUNT 
4750 016200 004737 047204 JSR PC, THO ;D0 2.5 SEC TIMEOUT 
4751 016204 004737 044106 JSR PC, FATT2 
4752 016210 104112 ERROR 112 ;ATTN CLEARED AFTER TMO 
4 
4754 016212 012765 100000 000000 nov #CCLR, RKCS1(R5) 
4755 016220 013765 001222 000010 Mov SUNIT,RKCS2(R5) ; DRIVES 
4756 016226 063765 005464 000010 ADD UNITB,RKCS2(R5) ;ADD 1 IF ON PORT B 
4757 016234 012737 000005 005314 Mov #CLEAR, HCS1 
W758 016242 004737 043372 JSR PC, DOCMD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
W759 016246 104151 ERROR 151 ;NO RDY AFTER DRIVE CLEAR CMD 
4760 016250 004737 043750 JSR PC, TSTATN ; TEST FOR ATTN 
4761 016254 000401 BR 665 
4762 016256 104154 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
W763 016260 66S 
4764 
4765 016260 012737 010340 005404 Mov #<D. DRA!D. SPIN!'D. DRDY!D. V¥>,E. AQ = EXPECTED MSG AO 
4766 016266 005037 005406 CLR E. 80 ;EXPECTED MSG BO 
4767 016272 012737 001720 005410 Mov #<D. SPOK'D. CART!D. DOOR!D. BRHM!D. SSP>.E.A1 EXPECTED Al 
4768 016300 012737 000001 005412 Mov #16. B1 ;MSG 1D FOR EXPECTED MSG B1 
4769 016306 005037 005414 CLR E.A2 ;EXPECTED MSG AZ 
4770 016312 012737 000002 005416 Mov #2,€.82 ;MSG 1D FOR EXPECTED MSG 82 
W771 016320 012737 000003 005422 MoV #3,€.83 ;MSG 1D FOR EXPECTED MSG B3 
477 
4773 016326 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AD, BO. Al, B1 
4774 016332 000003 “WORD = T.AZ!T. B2!0 ;& MSGS SPECIFIED HERE 
W775 016334 104033 ERROR 33 ;MSG AO ERROR AFTER DRV CLEAR CMD 
4776 016336 104034 ERROR 34 ;MSH BO ERROR 
4777 016340 104035 ERROR 35 :MSG Ai ERROR 
4778 016342 104036 ERROR 36 ;MSG B1 ERROR 
4779 
4780 016344 004737 044172 JSR PC, ORAV 
4781 016350 104113 ERROR 113 ;PORT A NCT AVAIL AFTER DRIVE CLEAR CMD 
4782 
4783 ETT TTT Tite tet ett et ist ett ett tte tte sett etttt its st ttt st ttt ttt ites! 


4784 ;AKTEST 11 TEST PORT 'B’' COMMAND SEIZE & ATTENTION 
:x 








C 8 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 3001046) 29-SEP-77 10:08 PAGE 93 SEQ 0093 
DZR6GA. P11 29-SEP-77 09: 55 Ti1 TEST PORT ‘'B' COMMAND SEIZE & ATTENTION 


| 
1 

4786 + THE PREVIOUS TEST IS REPEATED FOR PORT ‘B', 
a 


478? ; BUT THE SEEK IS TO CYLINDER O 

4789 Bectsctsstsittsitsttististtsttsstsstsstttitsttssesset set sees tess 
4790 016352 000004 TST11: SCOPE 

4791 016354 012737 000001 001174 nov #1, STINES 3300 1 ITERATION 

4792 016362 012706 001100 Mov #STACK, SP 

4793 016366 012737 000001 O05464 Mov #1, UNITB ;SETUP PORT B 

4794 016374 112737 000102 056576 MOVE = #"B HSG19A 

4795 016402 013737 005466 001366 Mov TIMER, COUNT 

4796 016410 004737 047204 JSR PC, TMO 700 TIMEOUT 

W798 016414 004737 045534 JSR PC, SUBCLR 

4799 016420 104024 ERROR 24 7CERR AFTER SCLR 

4g0t 

4802 016422 004737 044172 JSR PC, DRAV ;SEE IF DRIVE AVAIL 

W803 016426 104045 ERROR 45 ;PORT B NOT AVAIL AFTER TMO 
¥g04 016430 012766 o00c00 000020 nov #0, RKDC (RS) ;SEEK TO CYL O 

y 

y806 016436 012737 000017 005314 Mov #SEEK, HCS1 

4807 016444 004737 043372 JSR PC, DOCND ;D0 SEEK CMD & GET CONTR READY 
ug0s 016450 104131 ERROR 131 ;NO RDY AFTER SEEK CMD 

4 

4810 016452 013737 001412 005352 Mov TSO000, TEMP1 ©; SETUP TIMEOUT 

W811 016460 004737 044106 JSR PC, FATT2 FIND ATTN 

W812 O164e4 104132 ERROR 132 ;NO ATTN AFTER SEEK CMD 

481 

W814 016466 032737 100000 005314 BIT #CERR, HCS1 

W815 016474 001401 BzQ 655 

usié 016476 104210 ERROR 210 ;CERR AFTER SEEK CMD 

481 

4818 016500 65S: 

481 

W820 016500 012737 050340 005404 Mov #<D. DSC'D. DRA!D. SPIN!'D. DRDY!D. V¥>.—. AQ EXPECTED MSG AO 
4821 016506 005037 005406 CLR E. 80 7 EXPECTED MSG BO 

4822 016512 012737 001720 005410 Mov #<D. SPOK!D. CART!D. DOOR'D. BRHM!D. SSP>,£.A1 : EXPECTED Al 
W823 016520 612737 000001 005412 nov #16. 81 ;MSG 1D FOR EXPECTED MSG Bt 
4824 016526 005037 005414 CLR E.A2 ;EXPECTED MSG AZ 

4825 016532 012737 000002 005416 Mov #2,£.82 ;MSG 10 FOR EXPECTED MSG B82 
4826 016540 012737 000003 005422 MOV ° #3,€.B3 ;MSG 1D FOR EXPECTED MSG B3 
4827 

W828 016546 004737 044274 JSR PC, CHKNSG ;CHECK MSGS AD. BO, Al, Bt 
4829 016552 000000 -WORD O0'0!0 ;& MSGS SPECIFIED HERE 

W830 016554 104161 ERROR 161 ;MSG AO ERROR AFTER SEEK CMO 
W831 016556 104162 ERROR 162 ;MSH BO ERROR 

4832 016560 104163 ERROR 103 ;MSG Al ERROR 

4833 016562 104164 ERROR 164 ;MSG B1 ERROR 

4834 

W835 016564 004737 045756 JSR PC, ROCYLA ;READ CYL ADDR 

4836 016570 023727 001360 000000 CMP CYLADD, #0 SEE IF CYL O 

W837 016576 001415 BEQ 64S ;BR IF YES 

4838 016600 012737 000012 001344 nov #10. -FRCYL 

4839 016606 012737 000000 001346 nov #0. TOCYL 

4840 016614 012737 000000 001354 MoV #80, CALDIF 


4841 016622 012765 000000 900020 MoV #0, RKOC (RS) *REFRESH RKOC 








UNIBUS RKO6-RKO7 DUAL PORT DRIVE oromees 
29-SEP-77 09: 55 Ti 


DZR6GA. P11 
4842 016630 


4844 016632 
4845 016640 
4846 016644 
4847 016650 


4849 016652 
4850 016660 
4851 016666 
4852 016674 
4853 016702 
4854 016706 
4855 016710 
4856 016714 
4857 016716 
4858 016720 


4860 016720 
4861 016726 
4862 016732 
4863 016740 
4864 016746 
4865 016752 
4866 016760 


4868 016766 
4869 016772 
4870 016774 
4871 016776 
4872 017000 
4873 017002 


4875 017004 
4876 017010 


4893 017012 
4894 017014 
4895 017022 
4896 017026 
4897 017034 


104224 


012737 
004737 
004737 
104112 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


004737 
104113 


000004 
012737 
012706 
012737 
112737 


000226 001366 645: 
047204 
044106 


100000 000000 
001222 000010 
005464 000010 
000005 005314 
043372 


043750 


66S: 


010340 905404 
005406 

001720 005410 
000001 005412 
005414 

000002 005416 
000063 005422 


044274 


044172 


; 


; x 
;* 
t 
x 
x 
;* 
a 
x 
x 
x 
ix 
ok 
7x 
000001 001174 
001100 


000000 005464 
000101 056576 


Dd 8 
MACY11 3001046) 29-SEP-77 10:08 PAGE 94 
TEST PORT ‘'B’ COMMAND SEIZE & ATTENTION 


ERROR 224 +010 NOT SEEK TO CYL O 
MOV #150. , COUNT 

JSR PC, THO +00 2.5 SEC TIMEOUT 

JSR PC, FATT2 

ERROR 112 ATTN CLEARED AFTER THO 


MOV #CCLR, RKCS1(R5) 
MOV SUNIT.RKCSZ2(R5) ;ORIVES 
AOD UNITB,RKCSZ2(R5) ;ADD 1 IF ON PORT B 


MOV #CLEAR, HCS1 
JSR PC, DOCMD DO ORIVE CLEAR CMO & GET CONTR RDY 


ERROR 151 . +NO RDY AFTER DRIVE CLEAR CMO 

JSR PC, TSTATN + TEST FOR ATTN 

BR 66% 

ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


MOV #<D. DRA'D. SPIN'D. ORDY'D. VV>.E. AO -;EXPECTED MSG AD 


CLR E. BO EXPECTED MSG BO 

MOV #<D. SPOK!'D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
MoV #1,€.B1 ;MSG 1D FOR EXPECTED MSG B1 

CLR E. A2 EXPECTED MSG AZ 

MoV #2-E£.B2 ;MSG IC FOR EXPECTED MSG 82 

MOV #3,€.B3 >MSG 1D FOR EXPECTED MSG B3 

JSR PC, CHKMSG > CHECK wey AO, BO. Al. Bi 

-WORD T.AZ!T.B2!0 MSGS SPECIFIEO HERE 

ERROR 33 MSG AD ERROR AFTER DRV CLEAR CMD 
ERROR 34 *MSH BO ERROR 

ERROR 35 7MSG Al ERROR 

ERROR 36 MSG B1 ERROR 

JSR PC, ORAV 

ERROR 113 ;PORT B NOT AVAIL AFTER DRIVE CLEAR CMD 


> KXKAKKA AAA A AAA AAA AAA AAA AAA AAA AAA AAA TARA AAA AAA AAA EAA EAA ES 
TEST 12 TEST RESET PORT ‘A’ ATTENTION BY DRIVE CLEAR COMMAND 


VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF 
THE SEIZING PORT 


A. SET EACH PORT'S ATTENTION BIT BY PERFORMING SEEK 
COMMANDS TO CYLINDER O & ALLOWING TIMEOUTS 


B. SEIZE THE ORIVE THRU PORT ‘A’ & ISSUE A DRIVE CLEAR COMMAND 
VERIFY THAT ‘DSC’ & ‘ATTN’ FOR PORT ‘A’ HAVE BEEN CLEARED 


C. SEIZE THE DRIVE THRU PORT ‘B' & VERIFY ‘DSC’ & ‘ATTN’ 
HAVE NOT CLEARED 


Pe tobe oboe st ot 006295909999 095550050 9095292299922 0559 992930388 8 2d | 
TST12: 


SCOPE 

MOV #1,STIMES +;D0 1 ITERATION 
Mov @STACK. SP 

MOV #0, UNITB ;SETUP PORT A 


MOVB #'A, MSG19A 


SEQ 0094 





UN | BUS 
DZROGA. 


4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 


Pil 


017042 
017050 


017054 
017060 


017062 
017066 


017070 
017076 
017102 


017104 
017112 
017116 


017120 
017126 
017130 


017132 


017132 
017140 
017144 
017152 
017160 
017164 
017172 


017200 
017204 
017206 
017210 
017212 
017214 


017216 
017224 
017230 
017236 
917244 
017250 


017252 
017260 
017264 
017272 
017300 
017304 
017312 


017320 
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013737 
004737 


004737 
104024 


004737 
104045 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


013737 
004737 
012737 
112737 
004737 
104045 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 


005466 
047204 


045534 


044172 


000017 
043372 


001412 
044106 


100C00 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
000001 
000102 
044172 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001366 


005314 


005352 


905314 


005404 


005410 
005412 


005416 
005422 


001366 


005464 
956576 


005404 


005410 
005412 


005416 
005422 


RKOG-RKO7? DUAL PORT ORIVE seneten 


64S: 


E 8 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 95 
TEST RESET PORT 'A' ATTENTION BY DRIVE CLEAR COMMAND 


MoV 
JSR 


JSR 
ERROR 


TIMER, COUNT 

PC, THO D0 TIMEOUT 

PC, SUBCLR 

24 +CERR AFTER SCLR 

PC, DRAV ;SEE IF ORIVE AVAIL 

45 ;PORT A NOT AVAIL AFTER THO 
#SEEK, HCS1 

PC, DOCND +00 SEEK CMD & GET CONTR READY 
131 +NO RDY AFTER SEEK CHD 
TS50000, TEMP 1 +; SETUP TIMEOUT 

PC, FATT2 ;FINO ATTN 

132 NO ATTN AFTER SEEK CMD 
#CERR, HCS1 

64S 

210 *CERR AFTER SEEK CMO 


#<0. OSC'D. DRA!'D. SPIN'D. ORDY'D. VV>.E. AQ ;EXPECTED MSG AD 
E. B80 EXPECTED MSG BO 
#<D. SPOK!D. CART!D. DOOR'D. BRHM'D. SSP>.E. Al * nat theinans Al 


#1,€.B1 +MSG 1D FOR EXPECTED MSG B 
E. AZ > EXPECTED MSG AZ 
#2,€.B2 ;MSG 1D FOR EXPECTED MSG B2 
#3,€.B3 ;MSG 1D FOR EXPECTED MSG B3 
PC, CHKMSG CHECK MSGS AO, B60. Al. Bi 
0'0!0 *+& MSGS SPECIFIED HERE 
161 *MSG AQ ERROR AFTER SEEK CMO 
162 *MSH BO ERROR 
163 *MSG Al ERROR 
164 MSG B1 ERROR 
TIMER, COUNT 
PC, THO 700 1.5 SEC TIMEOUT 
a UNI TB ;SETUP PORT B 
#'B.MSG19A 
PC, DRAV 
4S >PORT B NOT AVAIL AFTER TNO 


#<D. DRA'O!D. SPIN'D. DROY!D. VV>.E. AD -;EXPECTED MSG AD 
E. BO EXPECTED MSG BO 
#<D. SPOK!D. CART!'D. DOOR'D. BRHM'D. SSP>.E.A1 -EXPECTED Al 


#1-€.B1 ;MSG 10 FOR EXPECTED MSG B1 
E. AZ EXPECTED MSG AZ 

#2Z.E.B2 ;MSG 1D FOR EXPECTED MSG B2 
#3,€.B3 *MSG 1D FOR EXPECTED MSG 82 
PC, CHKMSG *>CHECK MSGS AQ, BO. Al. BI 


SEQ 0095 


SS 





UNIBUS 
DZR6GA. 


4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 


Pil 


017324 
017326 
017330 
017332 
017334 


017336 
017344 
017350 


017352 
017360 
017364 


017366 
017374 
017376 


017400 


017400 
017406 
017412 
017420 
017426 
017432 
017440 


017446 
017452 
017454 
017456 
017460 
017462 


017464 
017472 
017476 
017504 
017512 
017516 


017520 
017526 
017532 
017540 
017546 
017552 
017560 


017566 
017572 
017574 
017576 
017600 
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000000 
104165 
104166 
104167 
104170 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
001401 
104210 


C12737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


015737 
004737 
012737 
112737 
004737 
104045 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104165 
104166 
104167 


000017 
043372 


001412 
044106 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
000000 
000101 
044172 


050340 
005406 
001720 
c00001 
005414 
000002 
000003 


044274 


005314 


005352 


005314 


005404 


005410 
005412 


005416 
005422 


001366 


005464 
056576 


005404 


005410 
005412 


005416 
005422 


RKOG-RKO7? DUAL PORT DRIVE ——ae 
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TEST RESET PORT ‘A’ ATTENTION BY DRIVE CLEAR COMMAND 


_ WORD 


0'0!0 +& MSGS SPECIFIED HERE 

165 +MSG AO ERROR AFTER TIMEOUT 
166 +MSH BO ERROR 

167 +MSG Al ERROR 

170 +MSG B1 ERROR 

#SEEK, HCS1 

PC, DOCND ;0C SEEK CMD & GET CONTR READY 
131 +NO RDY AFTER SEEK CMO 
TS50000. TEMP 1 + SETUP TIMEOUT 

PC. FATT2Z +F ING ATTN 

132 ;NO ATTN AFTER SEEK CMD 
#CERR, HCS1 

65$ 

210 -CERR AFTER SEEK CMD 


#.0. DSC!'D. ORA'D. SPIN!D. ORDY'D. V¥>.E. AQ -EXPECTED MSG AD 
E. BO EXPECTED MSG BO 
#<D. SPOK'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 EXPECTED Al 


#1-€.B1 +MSG 1D FOR EXPECTED MSG B1 
E. AZ EXPECTED MSG AZ 

#2,€.82 :MSG 10 FOR EXPECTED MSG 82 
#3,.€.B3 *MSG 1D FOR EXPECTED MSG B3 
PC, CHKNSG CHECK MSGS AO. BO. Al. BI 
0'0'0 7& MSGS SPECIFIED HERE 

161 >MSG AO ERROR AFTER SEEK CMD 
162 MSH BO ERROR 

163 /MSG Al ERROR 

164 >MSG B1 ERROR 

TIMER, COUNT 

PC, TMO 

#0, UNITB SETUP PORTC 

#'A,MSG19A 

PC, DRAV 

45 ;PORT A NOT AVAIL AFTER TNO 


#<0. DRA!'D. OSC'D. SPIN'D. ORDY'D. VV>.E. AQ ; EXPECTED MSG AD 
E. B60 EXPECTED MSG BO 
#<D. SPOK'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 EXPECTED Al 


#1,€.B1 *MSG 1D FOR EXPECTED MSG B1 
E. AZ EXPECTED MSG AZ 

#2-E. B2 +MSG 1D FOR EXPECTED MSG B2 
#3,€.B3 +MSG 1D FOR EXPECTED MSG B3 
PC, CHKMSG CHECK MSGS AN. BO. Al, B1 
0'0'0 7& MSGS SPECIFIED HERE 

165 *MSG AO ERROR AFTER TIMEQUT 
166 *>MSH BO ERROR 

167 >MSG Al ERROR 


SEQ 0096 





UNI BUS 
DZR6GA. 


Pil 
017602 


017604 
017612 
017620 
017626 
017634 
017640 
017642 
017646 
017650 
017652 


017652 
017660 
017664 
017672 
017700 
017704 
017712 


017720 
017724 
017726 
017730 
017732 
017734 


017736 
017744 
017750 
017756 
017764 
017770 


017772 
020000 
020004 
020012 
020020 
020024 
020032 


020054 
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104170 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


013737 
004737 
012737 
112737 
004737 
104114 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104165 
104166 
104167 
104170 


100000 
001222 
005464 
000005 
043372 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000CO03 


044274 


005466 
047204 
000001 
000102 
043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


04u274 


RKO6-RKO7 DUAL PORT ORIVE vimana: + 


000000 
000010 
000010 
005314 


005404 


005410 
005412 


005416 
005422 


001366 


005464 
056576 


005404 


005410 
005412 


905416 
005422 


ERROR 


66S: 
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TEST RESET PORT ‘A’ ATTENTION BY DRIVE CLEAR COMMAND 


170 MSG B1 ERROR 

#CCLR, RKCS1(RS) 

SUNIT.RKCSZ(R5) ; DRIVES 

UNITB,RKCS2(R5) ;ADD 1 IF ON PORT B 

#CLEAR, HCS1 

PC, DOCMD +00 ORIVE CLEAR CMD & GET CONTR RDY 

151 +NC RDY AFTER DRIVE CLEAR CMD 

+ tga ; TEST FOR ATTN 

154 ;ATTN NOT CLEARED AFTER ORIVE CLEAR CMD 


#<D. DRA'D. SPIN'D. ORDY'D. VW>.E. AQ EXPECTED MSG AD 
E. B80 ;EXPECTED MSG BO 
#<D. SPOK!'D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 


#1,€.B1 +MSG 10 FOR EXPECTED MSG B1 
E. AZ EXPECTED MSG AZ 
#2-£.B2 ;MSG 1D FOR EXPECTED MSG B2 
#3,€. 83 *+MSG 1D FOR EXPECTED MSG B83 
PC, CHKMSG + CHECK MSGS AO. BO. Al. Bi 
A2'T. B2'0 +& MSGS SPECIFIED HERE 
33 >MSG AO ERROR AFTER ORV CLEAR CMD 
34 *>MSH BO ERROR 
35 MSG Al ERROR 
36 ‘MSG B1 ERROR 
TIMER, COUNT 
PC, TMO DO 1.5 SEC TIMEOUT 
#1, UNITB >SETUP PORT B 
#'B.MSG19A 
PC, TSTATN 
114 ;ATTN RESET ON PORT B AFTER OR CLR CMD 
7ON PORT A 


#4D. DRA'D. OSC'D. SPIN'D. ORDY!O. V¥>.E. 90 ; EXPECTED MSG AD 
E. 60 EXPECTED MSG BO 
#<D. SPOK'D. CART!D. DOOP'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 


#1-€.B1 7MSG 10 FOR EXPECTED MSG B1 
E. AZ EXPECTED MSG AZ 

#2-€.B2 ;MSG ID FOR EXPECTED MSG B2 
#3.€.B3 *MSG 1D FOR EXPECTED MSG 83 
PC. CHKNSG CHECK MSGS AO. BO. Al. Bi 
0'0'0 7>& MSGS SPECIFIED HERE 

165 >MSG AO ERROR AFTER TIMEOUT 
166 MSH BO ERROR 

167 MSG Al ERROR 

170 *MSG B1 ERROR 


me oo ebe00000005000000000500955500 5999299202059 0555 5227359005503) 


:KTEST 13 


TEST RESET PORT 'B' ATTENTION BY DRIVE CLEAR COMMAND 


‘4% 
| THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 





SEQ 0097 


UNIBUS 
DZR6GA. 


Pil 


020056 
020060 
020066 
020072 
020100 
020106 
020114 


020120 
020124 


020126 
020132 


020134 
020142 
020146 


020150 
020156 
020162 


020164 
020172 
020174 


020176 


020176 
020204 
020210 
020216 
020224 
020230 
020236 


020244 
020250 
020252 
020254 
020256 
020260 


020262 
020270 
020274 
020302 
020310 
020314 


020316 
020324 
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000004 
012737 
012706 
012737 
112737 
013737 
004737 


004737 
104024 


004737 
104045 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


013737 
004737 
012737 
112737 
004737 
104045 


012737 
005037 


000001 
001100 
000001 
000102 
005466 
047204 


045534 


044172 


000017 
043372 


001412 
04410€ 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
000000 
000101 
044172 


010340 
005406 


001174 
005464 


056576 
001366 


NC5314 


005352 


005314 


005404 


005410 
005412 


005416 
005422 


001366 


005464 
056576 


005404 


RKO6-RKO7 DUAL PORT DRIVE oomrcttes © 
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8 
TEST RESET PORT ‘B' ATTENTION BY DRIVE CLEAR COMMAND 


;x 
Oh age 7  penagen sc pine pence coat uta cage rt neonates 


64S: 


#1,STIMES +;D00 1 ITERATION 

#STACK, SP 

#1, UNITB + SETUP PORT B 

#'B, MSG19A 

TIMER, COUNT 

PC, THO D0 TIMEOUT 

PC, SUBCLR 

24 ;CERR AFTER SCLR 

PC, DRAV ;SEE IF DRIVE AVAIL 

4S ;PORT B NOT AVAIL AFTER TMO 
#SEEK, HCS1 

PC, DOCMD DO SEEK CMD & GET CONTR READY 
131 +NO ROY AFTER SEEK CMD 
TSO0000, TEMP 1 SETUP TIMEOUT 

PC, FATT2 *FIND ATTN 

132 ;NO ATTN AFTER SEEK CMD 
#CERR. HCS1 

64S 

210 7CERR AFTER SEEK CMD 


#<D. DSC!'D. ORA'D. SPIN'D. DRDY'D. VW>.E. AD -EXPECTED MSG AD 
E. BO EXPECTED MSG 80 
#<D SPOK'D. CART!D. DOOR'D. BRHM!D. SSP>.E.A1 ; EXPECTED Al 


#1-€. 81 ;MSG 1D FOR EXPECTED MSG B1 
E AZ ; EXPECTED MSG AZ 

#2,£ B2 *>MSG 1D FOR EXPECTED MSG B2 
#3,€.B3 *MSG 1D FOR EXPECTED MSG B3 
PC, CHKMSG CHECK MSGS AO. BO. Al. BI 
0'0'0 >& MSGS SPECIFIED HERE 

161 >MSG AO ERROR AFTER SEEK CMD 
162 *MSH BO ERROR 

163 *MSG Al ERROR 

164 *MSG B1 ERROR 

TIMER, COUNT 

PC, THO 00 1.5 SEC TIMEOUT 

#0, UNITB >SETUP PORT A 

#'A,MSG1I9A 

PC, DRAV 

45 >PORT A NOT AVAIL AFTER TMO 


#<D. ORA'O'D. SPIN'D ORDY'D. WW>.— AD -EXPECTEG MSG AD 
E. BO ‘EXPECTED MSG BO 


SEQ 0098 


+ 


UN 1 BUS 
DZR6GA. 


Pil 


020330 
020336 
020344 
020350 
020356 


020364 
020370 
020372 
020374 
020376 
020400 


020402 
020410 
020414 


020416 
020424 
0204 30 


020432 
020440 
020442 


020444 


020444 
020452 
020456 
020464 
020472 
020476 
020504 


020512 
020516 
020520 
020522 
020524 
020526 


020530 
020536 
020542 
020550 
020556 
020562 


020564 
020572 


020616 
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012737 
012737 
005037 
012737 
012737 


004737 
oc0000 
104165 
104166 
104167 
104170 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


013737 
004737 
012737 
112737 
004737 
104045 


012737 
005037 
012737 
012737 
005037 
012737 


001720 
000001 
005414 
000002 
000003 


044274 


000017 
043372 


001412 
044106 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
000001 
000102 
044172 


050340 
005406 
001720 
000001 
005414 
000002 


005410 
005412 


005416 
005422 


005314 


005352 


005314 


005404 


005410 
005412 


005416 
005422 


901366 


005464 
056576 


005404 


005410 
005412 


005416 


RKOG-RKO7 DUAL PORT DRIVE —— 


65S. 
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TEST RESET PORT ‘B' ATTENTION BY DRIVE CLEAR COMMAND 


MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 EXPECTED Al 
MOV #1,.€.B1 +MSG 10 FOR EXPECTED MSG B1 

CLR E. a2 EXPECTED MSG AZ 

sMSG 1D FOR EXPECTEC MSG 82 

;MSG 10 FOR EXPECTED MSG B3 


JSR PC, CHKMSG + CHECK MSGS AO, BO. Al. Bi 
.WORD 0!0!0 *+& MSGS SPECIFIED HERE 
ERROR 165 sMSG AO ERROR AFTER TIMEOUT 
ERROR 166 +MSH BO ERROR 

ERROR 167 +MSG Ai ERROR 

ERROR 170 MSG Bi ERROR 

MOV #SEEK, HCS1 

JSR PC, DOCMD D0 SEEK CMD & GET CONTR READY 
ERROR 131 *NO RDY AFTER SEEK CMD 

MOV TS0000. TEMP 1 > SETUP TIMEOUT 

JSR PC, FATT2 7FIND ATTN 

ERROR 132 +NO ATTN AFTER SEEK CMO 

BIT @#CERR, HCS1 

BEQ 65% 

ERROR 219 7CERR AFTER SEEK CMD 


MoV #<D. DSC'D. ORA'D. SPIN'D. DRDY'D. V¥>.E. AD -; EXPECTED MSG AOD 


CLR E. 80 EXPECTED MSG BO 

MoV #<D. SPOK!D. CART !D. DOOR!'D. BRHM'D. SSP>.E.A1 -EXPECTED Al 
MoV #1,€. 81 *MSG 1D FOR EXPECTED MSG B1 
CLR E. AZ EXPECTED MSG AZ 

MOV #2,€.B2 ; MSG 1D FOR EXPECTED MSG B2 
MOV #3-€.B3 >MSG 1D FOR EXPECTED MSG B3 
JSR PC, CHKNSG CHECK MSGS AOD, BO. Al. Bi 
-WORD O'0!0 >& MSGS SPECIFIED HERE 

ERROR 161 >MSG AO ERROR AFTER SEEK CMO 
ERROR 162 *MSH BO ERROR 

ERROR 163 >MSG Al ERROR 

ERROR 164 *MSG B1 ERROR 

MOV TIMER, COUNT 

JSR PC, THO 

MOV #1,UNITB * SETUP PORTC 

MOVB #'B, MSG19A 

JSR Pc, DRAV 

ERROR 45 >PORT B NOT AVAIL AFTER THO 


MOV #<D. DRA'D. OSC'D. SPIN'D. ORDY'D. VW>.E. AD ; EXPECTED MSG AD 


CLR E. 80 EXPECTED MSG BO 

MOV #<D. SPOK!D CART !D. DOOR!D. BRHM'D. SSP>,E.A1 -EXPECTED Al 
MoV #1,€. 81 *MSG ID FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 


MoV #2,E. B2 /-MSG 1D FOR EXPECTED MSG BC 





RKO6-RKO7 DUAL PORT DRIVE DIAGNOS 


. Pil 
020624 


020632 
020636 
020640 
020642 
020644 
020646 


020650 
020656 
020664 
020672 
020700 
020704 
020706 
020712 
020714 
020716 


020716 
020724 
020730 
020736 
020744 
020750 
020756 


020764 
020770 
020772 
020774 
020776 
021000 


021002 
021010 
021014 
021022 
021030 
021034 


021036 


021076 


021104 
021110 
021112 
021114 


29-SEP-77 09: 55 


012737 


004 737 
000000 
104165 
104166 
104167 
104170 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


013737 
004737 
012737 
112737 
004737 
104114 


012737 


012737 


004737 
006000 
104165 
104166 


000003 
044274 


100000 
001222 
005464 
000005 
043372 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
000000 
000101 
043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005422 


000000 
000010 
000010 
005314 


005404 


005410 
005412 


005416 
005422 


001366 


005464 
056576 


005404 


005410 
005412 


005416 
005422 





TIC 
T13 


06S: 
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TEST RESET PORT ‘B' ATTENTION BY DRIVE CLEAR COMMAND 


MOV #3,€.83 s;MSG 1D FOR EXPECTED MSG BS 
JSR PC, CHKMSG CHECK MSGS AO. BO. Al, Bi 
.WORD O!'0!0 +& MSGS SPECIFIED HERE 
ERROR 165 s+MSG AO ERROR AFTER TIMEOUT 
ERROR 166 +MSH BO ERROR 

ERROR 167 MSG Al ERROR 

ERROR 170 MSG B1 ERROR 


MOV #CCLR, RKCS1(R5) 

MOV SUNIT,.RKCSZ(R5) ; DRIVES 

ADO UNITB.RKCS2(R5) ;ADO 1 IF ON PORT B 
MOV #CLEAR. HCS1 


JSR PC, DOCMD ;DO0 DRIVE CLEAR CMD & GET CONTR RDY 
ERROR 151 +NO RDY AFTER DRIVE CLEAR CMO 
= ee + TEST FOR ATTN 
6 
ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


MOV #<D. DRA!'D. SPIN'D. ORDY'D. VWV¥>.E. AO ;EXPECTED MSG AD 


CLR €. 80 EXPECTED MSG BO 

MOV #<D. SPOK!D. CART! 0. DOOR!'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 

MoV #1-E€.B1 ;MSG 1D FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 

MOV #2,E.B2 ; MSG 1D FOR EXPECTED MSG B2 

MoV #3,€.B3 ;MSG 1D FOR EXPECTED MSG B3 

JSR PC, CHKMSG ;CHECK MSGS AO. BO. Al. Bi 

-WORD = T.AZ!T. B2!0 +& MSGS SPECIFIED HERE 

ERROR 33 +MSG AO ERROR AFTER DRV CLEAR CMD 

ERROR 34 MSH BO ERROR 

ERROR 35 7MSG Al ERROR 

ERROR 36 MSG B1 ERROR 

MoV TIMER, COUNT 

JSR PC, TNO 700 1.5 SEC TIMEOUT 

MoV #0, UNITB *SETUP PORT A 

MOVB #'A,MSG19A 

JSR PC, TSTATN 

ERROR 114 ;ATTN RESET ON PORT A AFTER OR CLR CMD 
7ON PORT B 


MOV #<D. DRA!'D. DSC!D. SPIN'D. ORDY'D. VV>.E. AQ -;EXPECTED MSG AD 


CLR E. 80 EXPECTED MSG BO 

MoV #<D. SPOK'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 EXPECTED Al 
MoV #1-€.B1 *MSG 1D FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 

MoV #2,E.B2 7MSG 1D FOR EXPECTED MSG B2 

Mov #3.€. B3 ;MSG ID FOR EXPECTED MSG B3 

JSR PC, CHKMSG ;CHECK MSGS AQ. BO. Al. Bi 

.WORD 0!0!0 *& MSGS SPECIFIED HERE 

ERROR 165 >MSG AO ERROR AFTER TIMEOUT 

ERROR 166 MSH BD ERROR 


UNI BUS 
DZR6GA. 


Pil 


021116 
021120 


021122 
021124 
021132 
021136 
021144 
021152 
021160 


021164 
021170 


021172 
021176 
021200 
021206 
021214 
021222 
021230 
021236 
021244 
021250 


021252 
021260 
021266 
021274 
021302 
021310 
021314 


021316 
021324 
021326 
021330 
021330 
021334 
021336 
021340 


021340 
021346 


29-SEP-77 09: 55 


104167 
104170 


000004 
012737 
012706 
012737 
112737 
013737 
004737 


004737 
104024 


004737 
104045 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
000401 
104115 


012737 
005037 


000001 
001100 
000000 
000101 
005466 
047204 


045534 


044172 


001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


043750 


010340 
005406 


RKO6-RKO7 DUAL PORT ORIVE vegeta 


001174 


005464 
056576 
001366 


000016 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


005404 


K 8 
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01 
TEST RESET PORT ‘'B' ATTENTION BY DRIVE CLEAR COMMAND 


ERROR 167 MSG Al ERROR 
ERROR 170 +MSG B1 ERROR 


Be i 
ae ee ee 


w.- 


T14 


64S: 


T 14 


TEST RELEASE, 


; AAAAAAAAAAAAAARA AAA AA AAA TARA AAA AAA AAA AAA ASA AAA AAA AAA T 
ES DRIVE SEIZED BY PORT ‘A’ 


A. SEIZE THE DRIVE THRU PORT ‘A’ 
B. ISSUE A RELEASE USING RKCS2 THRU PORT ‘A’ 


C. VERIFY PORT 'B' CAN ACCESS THE DRIVE IMMEDIATELY & 
THAT NEITHER PORT SEES ‘OSC’ OR ‘ATTN 


#1, STIMES 
#STACK, SP 
#0, UNI TB 
#'A,MSG19A 
TIMER, COUNT 
PC, THO 


PC, SUBCLR 
24 


PC, DRAV 
45 


SUNIT, RKCS2(R5) 
#0, UNITB 

UNITB. RKCS2(R5) 
#'A, MSG19A 
#RLS, RKCSZ(R5) 
#SELDRV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2(R5) 
#1, UNITB 

UNITB. RKCS2(R5) 
#'B,.MSG19A 
#SELDRV, HCS1 
PC, DOCMO 

117 


#D. DORA, HMRZ 
645 

71 

PC, TSTATN 
1$ 

115 


#<D. DRA'D. SPIN'D. DROY'D. VW>.E. AD 


E. 80 


”S eogyag 9% Yaclcagmanimranasics itt abet neta roncas umeambeet ir ne oath 


;;D0 1 ITERATION 
;SETUP PORT A 


D0 TIMEOUT 
> CERR AFTER SCLR 


;SEE IF ORIVE AVAIL 
;PORT A NOT AVAIL AFTER TMO 
; SETUP FOR PORT A 


;RELEASE PORT A 


;DO SELDRV (STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL ORV CMD 


+SETUP FOR PORT B 


;DO SELDRV (STATUS) CMD & GET CONTR RDY 
+NO RKY AFTER SEL DRV CMD 


SEE IF DRIVE AVAIL ON PORT B 


7>BR IF YES 
PORT B NOT AVAIL AFTER PORT A RLS 


ATTN SET IN PORT B AFTER RLS OF PORT A 


EXPECTED MSG AD 
*EXPECTED MSG BO 


L 8 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE —"a MACY11 30(1046) 29-SEP-77 10:08 PAGE 102 SEQ 0102 


DZR6GA. P11 29-SEP-77 09:55 TEST RELEASE. ORIVE SEIZED BY PORT ‘A' 
5290 021352 012737 001720 005410 MoV #<D. SPOK!D. CART!D. odie BRHM'D. SSP>.E.A1 ;EXPECTED Al 
5291 021360 012737 000001 005412 Mov #1,€. B1 MSG ID FOR EXPECTED MSG 81 
5292 021366 005037 005414 CLR E.A2 EXPECT ED MSG AZ 
5293 021372 012737 O00002 005416 MOV #2.€. 62 ;MSG 1D FOR EXPECTEC MSG 82 
pose 021400 012737 000003 005422 MoV #3,€. 83 ;MSG 10 FOR EXPECTED MSG B3 
5296 021406 004737 044274 JSR PC, CHKMNSG Heo MSGS AG. BO. Al. Bi 
5297 021412 000000 -WORD O'0!0 & MSGS SPECIFIED HERE 
5298 021414 104133 ERROR 133 MSG AO ERROR AFTER RELEASED TO PORT B 
5299 021416 104134 ERROR 134 ;MSH BO ERROR 
5300 021420 104135 ERROR 135 ;MSG Ai ERROR 
Pas 021422 104136 ERROR 136 ;MSG B1 ERROR 
5303 021424 012737 OO0000 005464 MoV #0, UNITB + ADDRESS PORT A 
5304 021432 112737 000101 056576 MOVB #'A.MSG19A 
5305 021440 004737 043750 JSR PC, TSTATN 
5306 021444 000433 BR TST15 +; GOTO NEXT TST 
ye 021446 104115 ERROR 115 ; ATTN SET AFTER RLS ISSUED 
5309 021450 012737 010340 005404 MOV #<D. DRA'D. ORA'D. SPIN'D. ORDY'D. VW>.E. AO ;EXPECTED MSG AD 
5310 021456 005037 005406 CLR E. B80 ; EXPECTED MSG BO 
5311 021462 012737 001720 005410 MOV #<D. SPOK'D. CART!'D. DOOR'D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
5312 021470 012737 000001 005412 MOV #1,€. B1 ;MSG 10 FOR EXPECTED MSG B1 
5313 021476 005037 005414 CLR —. 92 + EXPECTED MSG AZ 
5314 021502 012737 OO00002 005416 MOV #2,€. 82 ;MSG ID FOR EXPECTED MSG B82 
ores 021510 012737 O00003 9005422 MOV #3,.€.83 ;MSG 10 FOR EXPECTED MSG B3 
16 
5317 021516 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AO. BO. Al. B1 
5318 021522 000000 .WORD O'O!0 >& MSGS SPECIFIED HERE 
5319 021524 104211 ERROR 211 >MSG AO ERROR AFTER RELEASE ISSUED 
5320 021526 104212 ERROR 212 ;MSH BO ERROR 
5321 021530 104213 ERROR 213 ;MSG Al ERROR 
5322 021532 104214 ERROR 214 ;MSG B1 ERROR 
5323 
5324 25 RAXXKKAKAAAAA KEK AKA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KARA AKA EX 
5325 ;aTEST 15 TEST RELEASE. DRIVE SEIZED BY PORT ‘B' 
5326 ;% 
5327 :* THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
5328 ;x 
5329 Fe oo 005550505005 00 0055000000 000005000000 00009 0000000990009 99 908 8 | 
5330 021534 o00004 TST15: SCOPE 
5331 0621536 012737 000001 001174 MoV #1,STIMES ;;D0 1 ITERATION 
5332 021544 012796 001100 MOV #STACK. SP 
5333 021550 012737 000001 005464 MoV #1, UNITB ;SETUP PORT B 
5334 021556 112737 000102 056576 MOVB #'B.MSG19A 
5335 021564 013737 005466 001366 MOV TIMER, COUNT 
5336 021572 004737 047204 JSR Pc, TMO ;0C TIMEOUT 
5337 
5338 021576 004737 045534 JSR PC, SUBCLR 
5339 021602 104024 ERROR 24 ;CERR AFTER SCLR 
5340 
5341 
5342 021604 004737 044172 JSR PC, DRAV ;SEE IF DRIVE AVAIL 
S343 021610 104045 ERROR 4S >;PORT B NOT AVAIL AFTER THO 
5344 021612 013765 001222 000010 MOV SUNIT. RKCS2(R5) : SETUP FOR PORT B 


5345 021620 012737 000001 005464 MoV #1, UNITB 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE a 
OZROGA. P11 T18 


021626 
021634 
021642 
021650 
021656 
021662 


021664 
021672 
021700 
021706 
021714 
021722 
021726 


021730 
021736 
021740 
021742 
021742 
021746 
021750 
021752 


021752 


022012 


022020 
022024 
022026 
022030 
022032 
022034 


022036 
022044 
022052 
022056 
022060 


022062 
022070 
022074 
022102 
022110 
022114 
022122 


022130 
022134 
022136 
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063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
C00401 
104115 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104133 
104134 
104135 
104136 


012737 
112737 
004737 
0004 33 
104115 


012737 


012737 
012737 


004737 
000000 
104211 
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005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


043° .0 


010340 


000003 
044274 


000001 
000102 
043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


005404 


005410 
005412 


005416 
005422 


005464 
056576 


005404 


005410 
005412 


005416 
005422 


o4S: 


18: 


nM 8 
MACY11 30(1046) 29-SEP- 
TEST RELEASE, DRIVE SEIZED BY PORT ‘B' 


UNITB, RKCS2(R5) 
#'8, NSG19A 

@RLS, RKCS2(RS) 
#SELORV, HCS1 
PC, DOCMD 

117 


tt ~ pennies 
UNI TB. RKCSZ2(R5) 
#'A. MSGI9A 
#SELORV, HCS1 
PC. DOCMD 

117 


#0. DRA. HNRZ 
64S 

71 

PC, TSTATN 
1% 

115 


-77 10:08 PAGE 103 


;RELEASE PORT B 


+00 SELORV (STATUS) CMD & GET CONTR RDY 
+NO ROY AFTER SEL ORV CMD 


+SETUP FOR PORT A 


D0 SELDRV (STATUS) CMD & GET CONTR RDY 
NO RKY AFTER SEL DRV CMO 


+SEE IF DRIVE AVAIL ON PORT A 


>BR IF YES 
;PORT A NOT AVAIL AFTER PORT B RLS 


;ATTN SET IN PORT A AFTER RLS OF PORT B 


#<D. ORA!'D. SPIN'D. DROY'D. VV¥>.E. AD EXPECTED MSG AO 


9!:0'0 


#1, UNITB 
#'B.MSG19A 
PC, TSTATN 
TST16 

115 


#<D. DRA!D. DRA!D. 


PC, CHKMSG 
0'0:0 
211 


EXPECTED MSG BO 


E. B60 
#<D. SPOK!D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 EXPECTED Al 
1 


;MSG 10 FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

;MSG ID FOR EXPECTED MSG B2 
+MSG 1D FOR EXPECTED MSG B3 


;CHECK MSGS AQ, BO. Al, B1 
;& MSGS SPECIFIED HERE 

;MSG AO ERROR AFTER RELEASED TO PORT A 
;MSH BO ERROR 

7MSG Al ERROR 

7MSG B1 ERROR 


; ADDRESS PORT B 
+;GOTO NEXT TST 
;ATTN SET AFTER RLS ISSUED 


SPIN!D. DROY'D. VWW>.E.AQ -; EXPECTED MSG AD 
EXPECTED MSG BO 


E. 80 
#<D. —— CART!D. DOOR!D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
* 1 


;MSG ID FOR EXPECTED MSG 61 
EXPECTED MSG AZ 

+MSG 1D FOR EXPECTED MSG B2 
+MSG 1D FOR EXPECTED MSG B3 


*CHECK MSGS AQ. BO. Al, Bi 
7&8 MSGS SPECIFIED HERE 
*MSG AD ERROR AFTER RELEASE ISSUED 


SEQ 0103 


N 8 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE a MACY11 30(1046) 29-SEP-77 10:08 PAGE 104 SEQ 0104 


DZR6GA.Pi1 29-SEP-77 09: 55 TiS TEST RELEASE, DRIVE SEIZED BY PORT ‘B’ 
S402 022140 104212 ERROR 212 iMSH BO ERROR 
5403 022142 104213 ERROR 213 iMSG Al ERROR 
sou O2Z1NN 10NZ14 ERROR 214 ;MSG B1 ERROR 
5406 MESsitstessisstst stisiisiisittitrsissectestest resis ease es eee eg 
5407 ;ATEST 16 TEST RELEASE FROM PORT 'A' WITH PORT 'B' REQUESTING 
5409 ix A. PORT 'A' SEIZES THE DRIVE & DOES A SEEK TO SELF COMMAND. 
5410 it THE PROGRAN VERIFIES ‘DSC’ & ‘ATTN’ ON PORT ‘A‘ ONLY 
Suit x ON COMPLETION 
5413 it B. PORT 'B' TRIES TO ACCESS THE DRIVE. THE PROGRAM VERIFIES 
541i ix DRIVE NOT AVAILABLE 
5416 it C. A-RELEASE BY PORT ‘A’ IS ISSUED. VERIFY PORT ‘B' CAN 
5417 it ACCESS THE DRIVE IMMEDIATELY & THAT ‘DSC’ & ‘ATTN’ 
5418 is ARE SEEN ON PORT ‘8° 
5420 3 D. VERIFY PORT ‘A’ ‘DSC’ & ‘ATTN’ REMAINS SET AFTER RELEASE 
5422 i E. THE PROGRAM ISSUES A DRIVE CLEAR COMMAND TO PORT ‘B' 
s4z3 3 & VERIFIES ‘DSC’ & ‘ATTN’ RESETS. 
5425 7 F. THE PROGRAM THEN VERIFIES THAT PORT 'B' DOES NOT SEE 
5426 :m FURTHER (MULTIPLE) ATTENTIONS FROM WHAT WOULD HAVE BEEN 
5427 4 NORMAL TIMEOUT FROM PORT ‘A’. 
;* 
5429 js RERARAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
5430 022146 000004 TST16: SCOPE 
S431 022150 012737 000001 001174 nOV «#1, STINES ;7D0 1 ITERATION 
6432 022156 012706 001100 MOV «STACK. SP 
6433 022162 013765 001222 000010 MOV —- SUNIT, RKCSZ(RS) + SETUP FOR PORT B 
S434 022170 012737 000001 005464 HOV #1, UNITB 
5435 022176 063765 005464 000010 ADD —sUNI TB, RKCSZ¢RS) 
5436 022204 112737 000102 056576 novB #8. NSG19A 
5437 022212 062765 000010 000010 ADD = RLS, RKCSZ(R5) | RELEASE PORT 8 
S438 022220 012737 000001 005314 MOV —--RSELORV. HCS1 
S439 022226 004737 043372 JSR PC, DOCHD ;DO SELDRV (STATUS) CMD & GET CONTR RDY 
s¥w0 022232 10117 ERROR 117 ;NO ROY AFTER SEL ORV CMD 
441 
S¥42 022234 013765 001222 000010 MOV SUNIT. RKCSZ(RS) ; SETUP FOR PORT A. 
S443 022242 012737 000000 005464 HOV 80, UNITB ‘ 
Sy¥y 022250 063765 O05¥64 900010 ADD —sUNI TB, RKCSZ(RS) 
Sy4S 022256 112737 000101 056576 nove = #A NSG19A 
S¥4—@ 022264 012737 000001 905314 MOV —-BSELDRV. HCS1 
6447 022272 004737 043372 JSR PC, DOCHD D0 a ht CMD & GET CONTR RDY 
es 022276 104117 ERROR 117 7;NO RKY Ter SEL’ ORY CMD 
4 
6450 022300 032737 000040 005342 BIT  8O.DRA.HNR2 =; SEE IF L ye AVAIL ON PORT a 
S451 022306 001001 BNE 64S iBR IF YES": 
6452 022310 104071 ERROR 71 ‘port. A'NOT"AUAIL AFTER PORT B PLS 
gvS3 022312 64S, 5 
G¥55 022312 012737 010340 OnS¥Cs mov «8D. DRA'D. DRA'D SPIN'D. DROY'D W¥>.£ AD - EXPECTED MSG AO 
6¥5@ 922320 005037 005406 CLE «E BO /EXPECTED MSG BO _- 


6457 022328 012737 001720 906410 Mow #<D SPOCK 'D CART'D DOOR 'D Orie. S°9 —E Al -EYPECTED A! 





8 9 
UNIBUS RKO6-RKO7 DUAL PORT ORIVE wien MACY11 30(1046) 29-SEP-77 10:08 PAGE 105 SEQ 0105 


DZR6GA. P11 29-SEP-77 09: 55 TEST RELEASE FROM PORT ‘A' WITH PORT 'B' REQUESTING 
5458 022332 012737 000001 005412 MoV #1,€. 81 sMSG 10 FOR EXPECTED MSG Bi 
5459 022340 005037 005414 CLR E. AZ + EXPECTED MSG AZ 
5460 022344 012737 000002 005416 MOV #2,.€. 82 ;MSG 1D FOR EXPECTED MSG 82 
Ae | 022352 012737 000003 005422 MoV #3.€. 83 sMSG 10 FOR EXPECTEC MSG B3 
5463 022360 004737 044274 JSR PC, CHKMSG +CHECK MSGS AO. BO. Al. Bi 
5464 022364 000000 .WORD 0'!0!0 +8 MSGS SPECIFIED HERE 
5465 022366 104211 ERROR 211 +MSG AO ERROR AFTER RELEASE ISSUED 
5466 022370 104212 ERROR 212 MSH BO ERROR 
5467 022372 104213 ERROR 213 MSG Al ERROR 
5468 022374 104214 ERROR 214 MSG Bi ERROR 
5469 022376 004737 045534 JSR PC, SUBCLR 
ioe 022402 104024 ERROR 24 +CERR AFTER SCLR 
5472 022404 012737 000017 005314 MOV #SEEK, HCS1 
5473 022412 004737 043372 JSR PC, DOCMD +DO SEEK CMD & GET CONTR READY 
ee 022416 104131 ERROR 131 +NO RDY AFTER SEEK CMD 
5476 022420 013737 001412 005352 MOV T50000, TEMP 1 +SETUP TIMEOUT 
5477 022426 004737 044106 JSR PC, FATTZ FIND ATTN 
ee 022432 104132 ERROR 132 +NO ATTN AFTER SEEK CMD 
5480 022434 032737 100000 005314 BIT #CERR, HCS1 
5481 022442 001401 BEQ 65$ 
at 022444 104210 ERROR 210 >CERR AFTER SEEK CMD 
ne 04 022446 65S: 

S486 022446 012737 050340 005404 mw: #<D. OSC!D. ORA!'D. SPIN!D. DRDY'D. VV>.E. AO -;EXPECTED MSG AD 
5487 022454 005037 005406 CLR E. B60 EXPECTED MSG BO 
5488 022460 012737 001720 005410 Mov #<D. SPOK'D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 EXPECTED Al 
5489 022466 012737 000001 005412 MoV #1,€.B1 *MSG ID FOR EXPECTED MSG B1 
5490 022474 005037 005414 CLR E. AZ EXPECTED MSG AZ 
5491 022500 012737 000002 005416 OV #2-€.B2 ;MSG 1D FOR EXPECTED MSG B2 
abe 122506 012737 000003 005422 MOV #3,E.B3 +MSG 1D FOR EXPECTED MSG B3 
4 
5494 0226514 004737 044274 JSR PC, CHKMSG CHECK MSGS AQ, BO. Al, Bi 
5495 022520 000000 .WORD O!0!0 *+& MSGS SPECIFIED HERE 
5496 022522 104161 ERROR 161 +MSG AO ERROR AFTER SEEK CMD 
5497 022524 104162 ERROR 162 >MSH BO ERROR 
5498 022526 104163 ERROR 163 *MSG Al ERROR 
5499 022530 104164 ERROR 164 MSG B1 ERROR 
5500 
5501 
5502 022532 012737 000001 005464 MOV #1,UNITB ; SETUP PORT B 
5503 022540 112737 000102 056576 MOVB #'B,MSG19A 
5504 022546 004737 644172 JSR Pc, DRAV SEE IF ORIVE AVAIL 
5505 022552 000401 BR 1$ 
6506 022554 104103 ERROR 103 ;PORT B AVAIL BEFORE TMO OR RELEASE 
5507 
5508 022556 9032737 100000 005314 1%: BIT #CERR, HCS1 
5509 022564 001001 BNE 2$ 
5510 022566 104130 ERROR 130 >CERR NOT SET AFTER SEL DRIVE CMD 
6511 *>& NO DRA 
6512 022570 004737 043750 2S. JSR PC, TSTATN 
5513 022574 000401 BR 3% 


UNIBUS RKO6-RKO?7 DUAL PORT DRIVE ee 


DZ2R6GA. P11 





022576 


022600 
022606 
022614 
022622 
022630 
022636 
022644 
022652 
022656 


022660 
022666 
022674 
022702 
022710 
022716 
022722 


022724 
022732 
022734 
022736 
022736 
022742 


022744 
022752 
022756 
022764 
022772 
022776 
023004 


023012 
023016 
023020 


023074 
023100 


023102 
023110 
023116 
023124 
023132 


29-SEP-77 09: 55 


104115 


012765 
013765 


104117 


012765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104122 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 


100000 


043372 


001222 
000001 
005464 
000102 
000001 
043372 


00004 | 


043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 


000000 3%: 
000010 


005314 


000010 
005464 
000010 
056576 
005314 


005342 


005404 


005410 
005412 


005416 
005422 


900010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


66S: 


Cc 9 
MACY11 30(1046) 29-SEP- 


77 10:08 PAGE 106 


TEST RELEASE FROM PORT ‘A’ WITH PORT ‘B' REQUESTING 


ERROR 


115 


#CCLR, RKCS1(RS) 
SUNIT, RKCS2(R5) 
#0, UNITB 

UNI TB, RKCSZ2(R5) 
#'A, MSG19A 
#RLS, RKCSZ(R5) 
#SELDRV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2Z2(R5) 
#1, UNITB 

UNI TB, RKCS2(R5) 
#'B, MSG19A 
#SELORV, HCS1 
PC, DOCND 

117 


#D. DORA. HMRZ 
66% 

71 

PC, TSTATN 
122 


#<D. DRA'D. DSC!D. 
E. 80 


;ATTN SET IN PORT B AFTER RiS FROM PORT A 


+ SETUP FOR PORT A 


RELEASE PORT A 


DO SELDRV (STATUS) CMD & GET CONTR RDY 
;NO RDY AFTER SEL ORV CMO 


+ SETUP FOR PORT B 


;DO0 SELDORV (STATUS) CMD & GET CONTR RDY 
+NO RKY AFTER SEL ORV CHO 


+SEE IF DRIVE AVAIL ON PORT B 


7BR IF YES 
;PORT B NOT AVAIL AFTER PORT A RLS 


;NO ATTN IN PORT B AFTER RLS FROM PORT A 


DRA!D. SPIN!'D. ORDY'D. VV¥>,E. AQ -;EXPECTED MSG AD 
EXPECTED MSG BO 


7 SPOK!D. CART!D. DOOR!'D. BRHM'D. SSP>.E.A1 EXPECTED Al 


-E. B1 


#3. B3 


PC, CHKMSG 
0'0!0 


214 

SUNIT, RKCS2(R5) 
#1,UNITB 

UNI TB, RKCSZ(R5) 
#'B,MSG19A 
#RLS, RKCSZ(R5) 
#SELORV, HCS1 
PC, DOCND 

117 


SUNIT, RKCS2(R5) 
#0, UNITB 

UNITB, RKCS2(R5) 
#'A, MSG19A 
#SELORV, HCS1 


+MSG 1D FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

+MSG 1D FOR EXPECTED MSG 82 
-MSG 1D FOR EXPECTED MSG B3 


;CHECK MSGS AO. BO, Al. Bi 

+& MSGS SPECIFIED HERE 

*MSG AO ERROR AFTER RELEASE ISSUED 
MSH BO ERROR 

-MSG Al ERROR 

MSG B1 ERROR 

;SETUP FOR PORT B 


RELEASE PORT B 


>DO SELDRV ‘STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL OPV CMD 


+SETUP FOR PORT A 


SEQ 0106 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE cuttin, 


DZROGA. P11 


023140 
023144 


023146 
023154 
023156 
023160 
023160 
023164 


023166 
023174 
023200 
0223206 
023214 
023220 
023226 


023234 
023240 
023242 
023244 
023246 
023250 
023252 
023260 
023266 
023274 
023302 
023310 
023316 
023322 


023324 
023332 
023340 
023346 
023354 
023362 
623366 


023370 


023402 


023402 
023410 
023416 
023424 
023432 
023436 
023440 
023444 
023446 


29-SEP-77 09: 55 


004737 
104117 


032737 
001001 
104071 


004737 
104123 


012737 
00£037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


043372 


000040 


043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


100000 
001222 
005464 
000005 
043372 


043750 


005342 


005404 


005410 
005412 


005416 
005422 


000010 
005464 
000010 
056576 
000010 
005214 


000010 
005464 
000010 
056576 
005314 


905342 


000000 
000010 
000010 
005314 


675: 


68S: 


MACY11 30(1046) 107 
TEST RELEASE FROM PORT 'A' WITH PORT 'B' REQUESTING 


JSR 
ERROR 


BIT 
BNE 
ERROR 
JSR 
ERROR 


PC, DOCMD 
117 

#0. DRA, HMRZ 
675 


71 
PC, TSTATN 
123 


ee DSC!D. DRA!O. SPIN'D. DROY!D. VV>,E. AD 
#<D. SPOK!D. CART!D. DOOR !D. BRHM!D. SSP>.E. Al 


#1,€. B1 


43,6 B3 
PC, CHKMSG 
0:0!0 


SUNIT, RKCS2Z(R5) 
#0, UNITB 

UNITB, RKCS2Z(R5) 
#'A,MSG19A 
#RLS, RKCSZ(R5) 
#SELORV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2(R5) 
#1, UNITB 
UNITB.RKCS2(R5) 
#'B,.MSG19A 
#SELORV, HCS1 
PC, DOCND 

117 


#D. DRA. HMR2 
68$ 
71 


#CCLR, RKCS1(R5) 
SUNIT, RKCS2Z2(R5) 
UNITB, RKCS2(R5) 
#CLEAR. HCS1 

PC, DOCND 

151 

PC, TSTATN 

695 

154 
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29-SEP- 


77 10:08 PAGE SEQ 0107 


DO SELORV (STATUS) CMD & GET CONTR RDY 
+NO RKY AFTER SEL ORV CMD 
;SEE IF ORIVE AVAIL ON PORT A 

IF YES 


+ BR 
PORT A NOT AVAIL AFTER PORT B RLS 
;ATTN CLEARED IN PORT A AFT RLS FROM PORT B 


EXPECTED MSG AO 
EXPECTED Al 


EXPECTED MSG BO 


;MSG 10 FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

*+MSG 1D FOR EXPECTED MSG 82 
;MSG 1D FOR EXPECTED MSG B3 


CHECK MSGS AG, BO. Al. Bi 

+& MSGS SPECIFIED HERE 

+MSG AO ERROR AFTER RELEASE |SSUED 
MSH BO ERROR 

MSG Al ERROR 

MSG B1 ERROR 

+ SETUP FOR PORT A 


RELEASE PORT A 


;DO SELDRV (STATUS) CMD & GET CONTR RDY 
7NO RDY AFTER SEL ORV CMD 


>SETUP FOR PORT B 


>DO SELDRV (STATUS) CMD & GET CONTR RDY 
>NO RKY AFTER SEL ORV CMD 


*>SEE IF DRIVE AVAIL ON PORT B 


;BR IF YES 
;PORT B NOT AVAIL AFTER PORT A PLS 


> DRIVER 
;ADD 1 IF ON PORT B 


D0 DRIVE CLEAR CMD & GET CONTR RDY 
7NO ROY AFTER ORIVE CLEAR CMD 
> TEST FOR ATTN 


ATTN NOT CLEARED AFTER OPIVE CLEAP CMD 


———_ -—-- YF 


UNI BUS 
DZROGA. 


Pil 
023450 


023450 
023456 
023462 
023470 
023476 
023502 
023510 


023516 
023522 
023524 
023526 
023530 
023532 


023534 
023542 
023546 
023552 
023554 


023556 
023560 


023642 
023644 


023710 
023716 
023720 
023722 


023722 
023730 
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012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


013737 
004737 
004737 
C00401 
104144 


000004 
012737 


104117 
013765 


032737 
001001 
104071 


012737 
05037 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


005466 
047204 
043750 


000001 
001100 
001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


010340 
005406 


005404 


005410 
005412 


005416 
005422 


001306 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


805404 


RKOG-RKO7 DUAL PORT DRIVE — oe 


695: 
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MACY11 30(1046) 29-SEP-77 10:08 PAGE 108 SEQ 0108 
TEST RELEASE FROM PORT ‘A’ WITH PORT 'B' REQUESTING 


— SPIN!D. Deerh VV>.E.AG EXPECTED MSG AD 


PECTED MSG BO 
#<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.E.A1 -;EXPECTED Al 
#1,€.B1 ;MSG 10 FOR EXPECTED MSG B1 
E. AZ +EXPECTED MSG AZ 
#2,€. 82 s#MSG 10 FOR EXPECTED MSG B82 
#3,€.B3 ;MSG 1D FOR EXPECTED MSG B3 
PC. CHKNSG CHECK MSGS AO, BO. Al. Bi 
T.AZ!T. B2!0 +& MSGS SPECIFIED HERE 
33 ;MSG AO ERROR AFTER ORV CLEAR CMD 
34 MSH BO ERROR 
35 +MSG Al ERROR 
36 MSG B1 ERROR 
TIMER, COUNT 
PC, THO ;D0 1.5 SEC TIMEOUT ON PORT B 
PC, TSTATN 
TST17 ++GOTO NEXT TST 
144 ;MULT ATTN ON PORT B 


2 AKA KKK AKA RAK AAA KARA AA AAA AAA AAA AAA AAA AAA 
;ATEST 17 


THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 

>x 

pe $2999 29969909660956 5995909950095 0095092002299 9 0233 02089 090 9 8 | 
E 


;*k 
18 


TST1?: 


o4$ 


TEST RELEASE FROM PORT 'B' WITH PORT ‘A’ REQUESTING 


#1,STIMES +;D0 1 ITERATION 

#STACK, SP 

SUNIT,RKCSZ2(R5) ; SETUP FOR PORT A 

#0, UNITB 

UNI TB, RKCS2(R5) 

#'A, MSG19A 

@RLS.RKCSZ2(R5) ;RELEASE PORT A 

#SELORV, HCS1 

PC, DOCND DO SELDRY (STATUS) CMD & GET CONTR RDY 
117 ;NO RDY AFTER SEL DRV CHMOD 
SUNIT,RKCS2(RS5) ;SETUP FOR PORT B 

#1,UNITB 

UNI TB, RKCS2Z2(R5) 

#'B,MSG19A 

#SELORV, HCS1 

Pc, DOCMD DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 ;NO RKY AFTER SEL DRY CMD 

#D. DRA, HMR2 SEE IF DRIVE AVAIL ON PORT B 

64% 7BR IF YES 

71 ; PORT B NOT AVAIL AFTER PORT A RLS 


#<D. DRA'D. ORA'D. SPIN'D. DRDY'D. V¥>.E. AQ EXPECTED MSG AD 
E. 80 *EXPECTED MSG BO 


UNIBUS RKO6-RKO7 DUAL > an DRIVE sgt 
DZ2R6GA. P11 


023734 
023742 
023750 
023754 
023762 


023770 
023774 
023776 
024000 
024002 
024004 
024006 
024012 


024014 
024022 
024026 


024030 
024036 
024042 


024044 
024052 
024054 


024056 


024056 
024064 
024070 
024076 
024104 
024110 
024116 


024124 
024130 
024132 
024134 
024136 
024140 


024142 
024150 
024156 
024162 
024164 


024166 
024174 
024176 


024200 
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012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
004737 
104024 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
00140! 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


012737 
112737 
004737 
000401 
104103 


032737 
001001 
104130 


004737 


09: 55 


001720 
000001 
005414 
000002 
000003 


044274 


045534 


000017 
043372 


001412 
044106 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000000 
000101 
044172 


100000 


043750 


005410 
005412 


005416 
005422 


005314 


005352 


005314 


005404 


005410 
005412 


005416 
005422 


005464 
056576 


005314 


65S: 


1$: 


MACY11 30(1046) 


/ 
29-SEP-77 


10:08 PAGE 10 


9 
TEST RELEASE FROM PORT ‘B' WITH PORT ‘A’ REQUESTING 


#<D. — CART!D. DOOR!D. BRHM!D. SSP>.E. Al 


’ . 


#2,€. 82 
#3.€.B3 


PC, CHKNSG 
0'0!0 


2 
PC, SUBCLR 
24 


#SEEK, HCS1 
PC, DOCND 
131 


TS0000. TEMP 1 


PC, FATTZ 
132 


#CERR, HCS1 
659 
210 


#<D. DSC'D. ORA'D. SPIN!'D. ORDY'D. VV>.E. AD 


#0, UNITB 
#'A, MSG19A 


#CERR, HCS1 
2$ 
130 


PC, TSTATN 


E. BO 
#<D. SPOK!D. CART!'D. DOOR !'D. BRHM!D. SSP>,E. Al 
.B1 


+ EXPECTED Al 
+MSG 1D FOR EXPECTED MSG B1 

+ EXPECTED MSG AZ 

sMSG 1D FOR EXPECTEC MSG 82 

;MSG 10 FOR EXPECTED MSG B3 


CHECK MSGS AO. BO, Al. B1 

+& MSGS SPECIFIED HERE 

*MSG RO ERROR AFTER RELEASE ISSUED 
MSH BO ERROR 

+MSG Ai ERROR 

MSG B1 ERROR 


+CERR AFTER SCLR 

DO SEEK CMD & GET CONTR READY 
;NO RDY AFTER SEEK CMD 

SETUP TIMEOUT 


+>FIND ATTN 
+NO ATTN AFTER SEEK CMD 


= 


7 CERR AFTER SEEK CMD 


EXPECTED MSG AD 
EXPECTED Al 


EXPECTED MSG BO 


+MSG 1D FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

*MSG 10 FOR EXPECTED MSG B2 
>MSG 10 FOR EXPECTED MSG B3 


>CHECK MSGS AO. BO. Al, Bi 
*>& MSGS SPECIFIED HERE 

*MSG AO ERROR AFTER SEEK CMD 
*>MSH BO ERROR 

7MSG A1 ERROR 

*MSG B1 ERROR 


SETUP PORT A 
7SEE IF ORIVE AVAIL 
PORT A AVAIL BEFORE TMO OR RELEASE 


>CERR NOT SET AFTER SEL ORIVE CMD 
*& NO DRA 


SEQ 0109 


UNIBUS 


DZR6GA. P 


11 


024204 
024206 


024210 
024216 
024224 
024232 
024240 
024246 
024254 
024262 
024266 


024270 
024276 
024304 
024312 
024320 
024326 
024332 


024334 
024342 
024344 
024346 
024346 
024352 


024354 
024362 
024 366 
024374 
024402 
024406 
024414 


024422 
024426 
024430 
024432 
024434 
0244 36 
024440 
O24446 
024454 
024462 
024470 
024476 
024504 
024510 


024512 
024520 
024526 
024534 


000401 
104115 


012765 


104117 
013765 


104117 


032737 
001001 
104071 


004737 
104122 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 


100000 
001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 


RKOG-RKO7? DUAL PORT DRIVE spate 
29-SEP-77 09: 55 Ti? 


000000 $35: 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


005404 


005410 
005412 


005416 
005422 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 


66S: 


G 9 
MACY11 30(10%6) 29-SEP- 


77 10:08 PAGE 110 


TEST RELEASE FROM PORT ‘B' WITH PORT ‘A’ REQUESTING 


3$ 

115 

#CCLR, RKCS1(RS) 
a 
#1, UNITB 

UNITB, RKCSZ2(R5) 
#'B, NSG19A 

#RLS, RKCSZ(RS) 
#SELORV. HCS1 
PC. DOCMD 

117 


SUNIT, RKCSZ2(R5) 
#0. UNITB 

UNI TB, RKCSZ(R5) 
#' A, MSG19A 
#SELORV, HCS1 
PC, DOCND 

117 


#0. DRA. HHR2 
66$ 


71 
PC, TSTATN 


122 


#<D. DRA'D. OSC'D. ORA!'D. SPIN'D. DRDY!D. VV>,E. AD 


0!0'0 


2 

SUNIT, RKCSZ(R5) 
#0. UNITB 

UNITB, RKCS2(R5) 
#'A, MSG19A 
RLS, RKCSZ(RS) 
#SELORV, HCS1 
PC, DOCMND 

117 


SUNIT,. RKCSZ(R5) 
#1, UNITB 

UNITB, RKCS2(R5) 
#'B, MSG19A 


;ATTN SET IN PORT A AFTER RLS FROM PORT B 


+ SETUP FOR PORT B 


;RELEASE PORT B 


D0 SELDRV (STFTUS) CMD & GET CONTR RDY 
+NO ROY AFTER S&L ORV CMD 


+ SETUP FOR PORT A 


DO SELORV (STATUS) CMD & GET CONTR RDY 
NO RKY AFTER SEL ORV CMD 


;SEE IF ORIVE AVAIL ON PORT A 
;BR IF YES 
;PORT A NOT AVAIL AFTER PORT B RLS 


;NO ATTN IN PORT A AFTER RLS FROM PORT B 


EXPECTED MSG BO 


;MSG 1D FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

;MSG 1D FOR EXPECTED MSG B2 
+MSG 1D FOR EXPECTED MSG B3 


;CHECK MSGS AO, BO. Al. Bi 

7& MSGS SPECIFIED HERE 

;MSG AO ERROR AFTER RELEASE ISSUED 
MSH BO ERROR 

*MSG Al ERROR 

MSG B1 ERROR 

>SETUP FOR PORT A 


;RELEASE PORT A 


DO SELORV (STATUS) CMO & GET CONTR ROY 
>NO RDY AFTER SEL ORV CMD 


;SETUP FOR PORT B 


> EXPECTED MS3 AD 

E. B80 

#<D. x * ties CART'D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
1 


SEQ 0110 





UNI BUS 
DZR6GA. 


RKO6-RKO7 DUAL PORT DRIVE wotmmmege 
29-SEP-77 09: 55 


Pil 


024542 
024550 
024554 


024556 
024564 
024566 
024570 
024570 
024574 


024576 
024604 
024610 
024616 
024624 
024630 

24636 


024644 
024650 
024652 
024654 
024656 
024660 
024662 
024670 
024676 
024704 
024712 
024720 
024726 
024732 


024734 
024742 
024750 
024756 
024764 
024772 
024776 


025000 
025006 
025010 
025012 


025012 


025054 


012737 
004737 
104117 


032737 
001001 
104071 


004737 
104123 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000900 
104211 
104212 
104213 
104214 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


012765 
013765 
063765 
012737 
004737 
104151 
004737 
000401 


000001 
043372 
000040 
043750 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


100000 
001222 
005464 
000005 
043372 


043750 


005314 


005342 


005404 


005410 
005412 


005416 
005422 


900010 
005464 
000016 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


000000 
000010 
000010 
005314 


67%: 


68s. 


MACY11 30(1046) 
TEST RELEASE FROM PORT ‘B' WITH PORT 'A 


#SELDRV, HCS1 
PC, DOCMD 

117 

#0. DORA, HMR2 
67% 

71 


PC, TSTATN 
123 


.<S DRA'D. OSC!D. DRA!'D. SPIN!D. DRDY'D. VV>.E. AD 


#1-€. 


2 

SUNIT, RKCS2¢(R5) 
#1,UNITB 

UNITB. RKCS2(R5) 
#'B,.MSG19A 
#RLS, RKCS2Z(R5) 
#SELORV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCSZ(R5) 
#0, UNITB 
UNITB,RKCS2(R5) 
#'A,MSG19A 
#SELDRV, HCS1 
PC, DOCMD 

117 


#0. DRA, HMR2 
68$ 


71 


@CCLR, RKCS1I(RS) 
SUNIT, RKCS2(R5) 
UNITB, RKCS2(R5) 
#CLEAR, HCS1 

PC, DOCHD 


151 
PC. TSTATN 
695 


H 9 
29-SEP-77 


EXPECTED MSG BO 


*EXPECTED MSG AZ 


+MSG ID FOR EXPECTED MSG B2 
+MSG 10 FOR EXPECTED MSG B3 


10:08 PAGE 111 
" REQUESTING 


BO 
#<D. SPOK'!D. CART!D. DOOR !D. BRHM!D. SSP>.E. Al 
B1 ;MSG 10 FOR EXPECTED MSG B1 


;CHECK MSGS AO. BO. Al. B1 
+& MSGS SPECIFIED HERE 
;MSG AO ERROR AFTER RELEASE ISSUED 


MSH BO ERROR 
*MSG A1 ERROR 
*MSG B1 ERROR 


>; SETUP FOR PORT B& 


RELEASE PORT B 


:DO SELDRY (STATUS) CMD & GET CONTR RDY 


>NO RDY AFTER SEL ORV CMD 


»SETUP FOR PORT A 


:DO SELDRVY (STATUS) CMD & GET CONTR RDY 
>NO RKY AFTER SEL 


SEE IF DRIVE AVAIL ON PORT A 


;BR IF YES 


PORT A NOT AVAIL AFTER PORT 


> DRIVER 


ORV CMO 


;ADD 1 IF ON PORT B 


DO DRIVE CLEAR CMO & GET CONTP PDY 
*NO ROY AFTER DR!VE CLEAR CMO 


> TEST FOR ATTN 


;DO SELDRV (STATUS) CMD & GET CONTR RDY 
NO RKY AFTER SEL ORV CMD 


SEE IF DRIVE AVAIL ON PORT B 


; 


IF YES 
‘PORT B NOT AVAIL AFTER PORT A RLS 
;ATTN CLEARED IN PORT B AFT RLS FROM PORT A 


+ EXPECTED MSG AO 
EXPECTED Al 


B PLS 


SEQ 0111 


| 9 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE oe MACY11 30(1046) 29-SEP-77 10:08 PAGE 112 SEQ 0112 


DZROGA. P11 29-SEP-77 09: 55 Ti? TEST RELEASE FROM PORT ‘B' WITH PORT ‘A’ REQUESTING 
5850 025056 104154 ERROR 154 ATTN NOT CLEARED AFTER ORiVE CLEAR CMD 
core 025660 695: 
5853 025060 012737 010340 005404 MOV #<D. DRA'D. SPIN!'D. ORDY'D. VV>.E. AQ -;EXPECTED MSG AD 
5854 025066 005037 005406 CLR E 80 EXPECTED MSG BO 
5855 025072 012737 001720 005410 MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
5856 025100 012737 000001 005412 MOV #16. B1 ;MSG 1D FOR EXPECTED MSG B1 
5857 025106 O0C5037 005414 CLR E. AZ + EXPECTED MSG AZ 
5858 025112 012737 000002 005416 MOV #2.E.B2 ;MSG 1D FOR EXPECTED MSG B2 
rey 025120 012737 OO0003 005422 MoV #3.€.B3 sMSG 1D FOR EXPECTED MSG B3 
5861 025126 004737 044274 JSR PC, CHKMSG + CHECK or AO. BO. Al, Bi 
5862 025132 o0C003 .WORD T.A2!T B2!0 MSGS SPECIFIED HERE 
5863 025134 104033 ERROR 33 MSG AO ERROR AFTER DRV CLEAR CMO 
5864 025136 104034 ERROR 34 MSH BO ERROR 
S865 025140 104035 ERROR 35 MSG A1 ERROR 
aoe 025142 104036 ERROR 36 MSG Bi ERROR 
=) 
5868 025144 013737 005466 901366 MoV TIMER, COUNT 
5869 025152 004737 047204 JSR PC, THO +00 1.5 SEC TIMEOUT ON PORT A 
5870 025156 C0473? 043750 JSR PC, TSTATN 
5871 025162 000401 BR TST20 +;GOTO NEXT TST 
ooo 025164 104144 ERROR 144 ;MULT ATTN ON PORT A 
5874 
5875 22 2530252055095 9955950999909 250 952959932099 239 295295 0999939098 | 
5876 :&TEST 20 TEST RELEASE FROM REQUESTING PORT 'B' INHIBITS ‘ATTN’ 
5877 4 
5878 t A. PORT ‘A’ SEIZES THE DRIVE 
5879 a B. PORT 'B’ ATTEMPTS TO SEIZE THE DRIVE 
5880 * C. PORT 'B' & PORT 'A' RELEASE THE DRIVE, IN THAT ORDER 
5881 ’ D. THE PROGRAM VERIFIES THAT NEITHER PORT ‘A’ OR ‘'B* ATTENTION 
5882 ‘ BITS SET 
5883 | 
5884 eo o20520520550956056035955099855 5002969239029 22% 929 9900239 939 03) 
5885 025166 000004 TST20: SCOPE 
5886 025170 012737 000001 001174 MOV #1,STIMES *+,D0 1 ITERATION 
6887 025176 012706 0601100 MoV #STACK, SP 
5888 025202 013765 001222 000010 MoV SUNIT,RKCSZ2(R5) ; SETUP FOR PORT B 
5889 025210 012737 000001 005464 MoV #1, UNITB 
5890 025216 063765 005464 000010 ADD UNI TB, RKCS2(R5) 
5891 025224 112737 000102 056576 MOVB #'B.MSG19A 
5892 025232 062765 000010 900010 ADD SRLS. RKCS2(R5) ;RELEASE PORT B 
5893 025240 012737 000001 005314 MoV #SELDRV, HCS1 
5894 025246 004737 043372 JSR PC, DOCND DO SELDRV (STATUS) CMD & GET CONTR RDY 
5895 025252 104117 ERROR 117 >NO RDY AFTER SEL ORV CMD 
5896 
5897 025254 013765 001222 000010 MOV SUNIT,RKCS2(R5) ; SETUP FOR PORT A 
5898 025262 012737 O00000 005464 MOV #0, UNITB 
5899 025270 063765 005464 000010 ADD UNI TB, RKCS2(R5) 
5900 025276 112737 000101 056576 MOVB #'A, MSG19A 
5901 025304 012737 000001 005314 MOV #SELORV. HCS1 
5902 025312 004737 043372 JSR PC, DOCND D0 SELDRV (STATUS) CMD & GET CONTR RDY 
5903 025316 104117 ERROR 117 7NO RKY AFTER SEL ORV CHO 
5904 


5905 025320 032737 O00040 005342 BIT #0. DRA. HMR2 /SEE IF DRIVE AVAIL ON PORT A 


UN | BUS 
DZR6GA. 


Pil 


025326 
025330 
025332 


025332 
025340 
025344 
025352 
025360 
025364 
025372 


025400 
025404 
025406 
025410 
025412 
025414 
025416 
025422 


025424 
025432 
025440 
025444 
025446 


025450 
025456 
025460 
025462 
025466 
025470 


025472 


025550 
025552 


025626 


29-SEP-77 09: 55 


001001 
104071 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
004737 
104024 


012737 
112737 
004737 
000401 
104103 


032737 
001001 
104130 


094737 
000401 
104115 


012765 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


010340 
005406 
001720 
000001 
005414 
000002 
oc0003 


044274 


O455 34 


000001 
000102 
044172 


100000 


043750 


100000 
001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


005404 


005410 
005412 


005416 
005422 


005464 
056576 


005314 


000000 
000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


RKOG-RKO7 DUAL PORT ORIVE nescmesage * 


64S: 


2S: 


35: 


MACY11 30(1046) 


J 9 
29-SEP-77 


SEQ 0113 


10:08 PAGE 113 


TEST RELEASE FROM REQUESTING PORT ‘B’ INHIBITS ‘ATTN’ 


64S 
71 


7% DRA!D. ORA!'D. SPIN!D. DROY!D. VV>.E. AD 


2 

PC, SUBCLR 
24 
#1,UNITB 
#'B. MSG19A 


#CERR, HCS1 
2$ 
130 


0 
— — CART!D. DOOR!D. BRHM!D. SSP. E. a es 


7BR IF YES 
PORT A NOT AVAIL AFTER PORT B RLS 


+ EXPECTED MSG AD 
+ EXPECTED Al 


EXPECTED MSG BO 


;MSG 1D FOR EXPECTED MSG 
EXPECTED MSG AZ 

+MSG 1D FOR EXPECTED MSG B2 
sMSG 1D FOR EXPECTED MSG B3 


CHECK MSGS AO. BO. Al, B1 

+& MSGS SPECIFIED HERE 

;MSG AO ERROR AFTER RELEASE ISSUED 
+MSH BO ERROR 

MSG Al ERROR 

MSG B1 ERROR 

+CERR AFTER SCLR 

SETUP PORT B 

SEE IF ORIVE AVAIL 


;PORT B AVAIL BEFORE TMO OR RELEASE 


;CERR NOT SET BY NO DRA 





PC, TSTATN 

3$ 

115 ;ATTN SET IN PORT B AFTER RLS FROM PORT A 
ACCLR, RKCS1(RS) 

SUNIT,RKCS2(R5) ;SETUP FOR PORT B 

#1,UNITB 

UNI TB. RKCS2(R5) 

#'B,MSG19A 

@RLS.RKCSZ2(R5) ;RELEASE PORT B 

#SELDRV. HCS1 

PC, DOCMD >DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 +NO RDY AFTER SEL ORV CMD 
SUNIT,RKCS2(R5) ; SETUP FOR PORT A 

#0. UNITB 

UNITB. RKCS2(R5) 

#'A, MSG19A 

#SELDRV. HCS1 

PC, DOCMD DO SELDORV (STATUS) CMD & GET CONTR ROY 
117 +NO RKY AFTER SEL DRV CMD 

#D. DRA, HMRZ >SEE IF DRIVE AVAIL ON PORT A 

65$ 7BR IF YES 

71 ;PORT A NOT AVAIL AFTER PORT B PLS 


DZ2ROGA. P11 


77 09: 55 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE i 


025630 


025700 


025702 
025710 
025716 
025724 
025732 
025740 
025744 


025746 
025754 
025756 
025760 
025760 
025766 
025772 
025776 
026000 


026002 


026002 
026010 
026014 
026022 
026030 
026034 
026042 


026050 
026054 
026056 
026060 
026062 
026064 
026066 
026074 
026102 
026106 
026110 


29-SEP-7 


013765 


104117 


013765 
012737 
062765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


013737 
004737 
004737 
000401 
104115 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104211 
104212 
104213 
104214 
012737 
112737 
004737 
000401 
104115 


001222 


043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040: 


005466 
047204 
043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000000 
000101 
043750 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


001366 


005404 


005410 
005412 


005416 
905422 


005464 
056576 


655: 


665: 


4S: 


K 9 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 114 
TEST RELEASE FROM REQUESTING PORT 'B' INHIBITS ‘ATTN’ 


SUNIT,RKCSZ2(R5) ; SETUP FOR PORT A 


#0, UNITB 
UNI TB, RKCSZ(R5S) 
#'A, MSG19A 
#RLS,RKCSZ2(R5) {RELEASE PORT A 
#SELORV. HCS1 
PC, DOCMD DC SELDRV (STATUS) CMD & GET CONTR RDY 
117 +NO RDY AFTER SEL ORV CMD 
a + SETUP FOR PORT B 
athe RKCS2(R5) 
#'B, MSG19A 
#SELORV, HCS1 
PC, DOCMD +DO SELORV (STATUS) CMD & GET CONTR RDY 
117 +NO RKY AFTER SEL DRV CMD 


#D. DRA, HMRZ +SEE IF ORIVE AVAIL ON PORT B 
668 BR IF YES 


71 SPORT B NOT AVAIL AFTER PORT A RLS 
TIMER, COUNT 

PC. THO ;00 1.5 SEC TIMEOUT ON PORT B 

PC, TSTATN 

ust 

115 ;ATTN SET ON PORT B AFTER RLS FROM PORT B 


#<D. DRA'O!D. SPIN!D. DROY!D. VWV¥>.E.AO ;EXPECTED MSG AD 
E. 80 EXPECTED MSG BO 
a. SPOK!D. CART! 0. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 


1,€. B1 +MSG 10 FOR EXPECTED MSG B1 
E AZ EXPECTED MSG AZ 
#2.€.B2 +MSG 1D FOR EXPECTED MSG B2 
#3,E€.B3 ;MSG 1D FOR EXPECTED MSG B3 
PC, CHKMSG +CHECK MSGS AQ. BO. Al. B1 
0'!:0!0 *>& MSGS SPECIFIED HERE 
211 >MSG AO ERROR AFTER RELEASE ISSUED 
212 MSH BO ERROR 
213 *MSG Al ERROR 
214 *MSG B1 ERROR 
#0, UNI TB + SETUP PORT A 
&'A,MSG19A 
Pc, TSTATN 
TST21 +;GOTO NEXT TST 
115 ;ATTN SET ON PORT A, AFTER RLS FROM PORT A 


pe $$ 9$005509500559950999 9959999552 292059 2992952999090 9 903503903) 
/4ATEST 21 


THE PREVIOUS TEST IS REPEATED FOR PORT ‘B’. 
:* 
esos ose $0ee500005000000020005609 09309258 2995209 0292323225220 3 


sg 
;x 


TEST RELEASE FROM REQUESTING PORT ‘A’ INHIBITS ‘ATTN’ 


SEQ 0114 


. 7 
UN | BUS ~~ tome | QUAL +! ‘ms ——— MACY11 30(1046) 29-SEP-77 10:08 PAGE 115 SEQ 0115 


DZR6GA. Ft 29-SEP-77 09:5 TEST RELEASE FROM REQUESTING PORT ‘A’ INHIBITS ‘ATTN’ 
6018 026112 TST21: SCOPE 
6019 026114 012737 1 001174 MOV #1,STIMES +00 1 ITERATION 
6020 026122 012706 001100 Mov #STACK. SP 
6021 026126 013765 001222 000010 Mov SUNIT,RKCS2(RS) ; SETUP FOR PORT A 
6022 026134 012737 O00000 005464 MoV #0. UNITB 
6023 026142 063765 005464 000010 ROD UNI TB. RKCSZ(R5) 
6024 026150 112737 000101 056576 MOVB #'A, MSG19A 
6025 026156 062765 000010 000010 ADD @RLS,RKCSZ2(R5) ;RELEASE PORT A 
6026 026164 012737 000001 005314 MoV #SELORV, HCS1 
6027 026172 004737 043372 JSR PC, DOCND DO SELDRV (STATUS) CMD & GET CONTR RDY 
re 026176 104117 ERROR. 117 +NO RDY AFTER SEL ORV CMD 
6030 026200 012765 001222 000010 MOV SUNIT,RKCS2(R5) ;SETUP FOR PORT B 
6031 026206 012737 000001 005464 MOV #1, UNITB 
6032 026214 063765 005464 000010 ADD UNI TB, RKCSZ(R5) 
6033 026222 112737 000102 056576 MOVB #°B.MSG19A 
6034 026230 012737 000001 005314 MoV #SELORV, HCS1 
6035 026236 004737 043372 JSR PC, DOCMD ;DO SELDRV (STATUS) CMD & GET CONTR RDY 
ets} 026242 104117 ERROR 117 +NO RKY AFTER SEL DRV CMD 
6038 026244 ©C32737 OO00040 005342 BIT #0. DRA. HMRZ *SEE IF DRIVE AVAIL ON PORT B 
6039 026252 001901 BNE 64S 7BR IF YES 
6040 026254 104071 ERROR 71 +PORT B NOT AVAIL AFTER PORT A RLS 
et 026256 64S: 
6043 026256 012737 010340 005404 MOV #<D. DRA!'D. DRA!D. SPIN'D. ORDY'D. VV>.E. AO ;EXPECTED MSG AO 
6044 026264 005037 005406 CLR E. 80 EXPECTED MSG BO 
6045 026270 012737 001720 005410 Mov hw SPOK!D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
6046 026276 012737 O00001 005412 MoV 1,€.B1 +MSG 1D FOR EXPECTED MSG B1 
6047 026304 005037 005414 CLR f AZ EXPECTED MSG AZ 
6048 026310 012737 000002 005416 MoV #2,E. B82 ;MSG 1D FOR EXPECTED MSG 82 
ea 026316 012737 000003 905422 MoV #3,E.B3 *MSG 1D FOR EXPECTED MSG B3 
6051 026324 004737 044274 JSR PC, CHKMSG CHECK MSGS AQ, BO. Al. Bi 
6052 026330 000000 .WORD O!0!0 >& MSGS SPECIFIED HERE 
6053 026332 104211 ERROR 211 +MSG AO ERROR AFTER RELEASE ISSUED 
6054 026334 104212 ERROR 212 +MSH BO ERROR 
6055 026336 104213 ERROR 213 *MSG Al ERROR 
6056 026340 104214 ERROR 214 *MSG B1 ERROR 
6057 026342 004737 045534 JSR PC, SUBCLR 
a 026346 104024 ERROR 24 7CERR AFTER SCLR 
6059 
6060 026350 012737 O00000 905464 MoV #0, UN! TB SETUP PORT A 
6061 026356 112737 000101 056576 MOVB #'A, MSG1I9A 
6062 026364 004737 044172 JSR PC, DRAV 7;SEE IF DRIVE AVAIL 
6063 026370 000401 BR 1$ 
6064 026372 104103 ERROR 103 >PORT A AVAIL BEFORE TMD OR RELEASE 
6065 
6066 026374 032737 100000 905314 15%: BIT #CERR, HCS1 
6067 026402 001001 BNE 28 
6068 026404 104130 ERROR 130 *CERR NOT SET BY NO DRA 
6069 
6070 026406 004737 043750 23: JSR PC, TSTATN 
6071 026412 006401 BR 3$ 
6072 026414 104115 ERROR 115 ; ATTN SET IN PORT A AFTER RLS FROM PORT B 
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026416 


026540 
026542 


026724 
026726 


026726 
026734 
026740 
026746 
026754 


012765 


032737 
001001 
104071 


013765 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


013737 
004737 
004737 
000401 
104115 


012737 
005037 
012737 
012737 
005037 
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043372 


000040 


005466 
047204 
043750 


010340 
005406 
001720 
000001 
005414 


000000 35: 
000010 


005314 


000010 
005464 
000010 
056576 
005314 


005342 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


001366 


005404 


005410 
005412 


65S: 


665: 


49: 
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TEST RELEASE FROM REQUESTING PORT ‘A’ INHIBITS ‘ATTN’ 


MOV @CCLR. RKCS1(R5) 
MOV SUNIT,RKCS2(RS) ; SETUP FOR PORT A 


SEG 0116 


MOV #0, UNITB 

AOD oh RKCS2(RS) 

MOVB #'A, MSG19A 

ADD #RLS, RKCSZ(RS) ;RELEASE PORT A 

MoV #SELDRV, HCS1 

JSR PC, DOCND ;D0C SELORV (STATUS) CMD & GET CONTR RDY 
ERROR 117 +NO RDY AFTER SEL ORV CMD 

Mov SUNIT,.RKCSZ2(RS) ; SETUP FOR PORT B 

MoV #1, UNITB 

ADD oe RKCS2(R5) 

MOVB #'8,.MSG19A 

MOV #SELORV, HCS1 

JSR PC, DOCMD ;DO0 SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 117 +NO RKY AFTER SEL DRV CMO 

BIT #0. DRA, HNRZ +SEE IF ORIVE AVAIL ON PORT B 

BNE 65$ BR IF YES 

ERROR 71 ;PORT B NOT AVAIL AFTER PORT A RLS 
MOV SUNIT,RKCSZ2(R5) ; SETUP FOR PORT B 

MoV #1-UNITB 

ADD oly RKCS2(R5) 

MOVB #'B,. MSG19A 


ADD @RLS,.RKCSZ(R5) {RELEASE PORT B 
MOV #SELORV, HCS1 
JSR PC, DOCHD 

ERROR 117 ;NO RDY AFTER SEL ORV CHO 


MOV SUNIT,RKCS2(R5) ; SETUP FOR FORT A 
MOV #0. UNITB 

ADD UNI TB, RKCS2(R5) 
MOVB #'A,.MSG19A 

MOV #SELDRV, HCS1 
JSR PC, DOCMD 


;DO SELORV (STATUS) CMD & GET CONTR ROY 


DO SELDRV (STATUS) CMD & GET CONTR RDY 


ERROR 117 +NO RKY AFTER SEL DRV CMD 

BIT #D. DORA, HMRZ +SEE IF DRIVE AVAIL ON PORT A 

BNE 66$ BR IF YES 

ERROR 71 PORT A NOT AVAIL AFTER PORT B RLS 

MoV TIMER, COUNT 

JSR PC, THO >DO 1.5 SEC TIMEOUT ON PORT A 

JSR PC. TSTATN 

BR 43 

ERROR 115 ;ATTN SET ON PORT & AFTER RLS FROM PORT A 


MOV #<D. DRA'O!D. SPIN'D. ORDY!D. V¥>-E. AO -;EXPECTED MSG AD 


CLR E.B0 EXPECTED MSG BO 

MOV #<D. SPOK!D. CART'D. DOOR!D. BRHM!D. SSP>.E. Al Fda A 
MOV #1-€.B1 +MSG 1D FOR EXPECTED MSG B 

CLR E. AZ EXPECTED MSG AZ 


‘\ 


A TELS 
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DZROGA. P11 29-SEP-77 09: 55 T21 TEST RELEASE FROM REQUESTING PORT ‘A’ INHIBITS ‘ATTN’ 

6130 026760 012737 000002 005416 MoV #2,€.82 sMSG 1D FOR EXPECTED MSG BZ 
eg 026766 012737 000003 005422 MOV #3,€. 83 ;MSG 1D FOR EXPECTED MSG B3 
6133 026774 004737 044274 JSR PC, CHKNSG CHECK MSGS AO. BO, Al. B1 
6134 027000 000000 .WORD O'0!0 +& MSGS SPECIFIED HERE 
6135 027002 104211 ERROR 211 +MSG AO ERROR AFTER RELEASE ISSUED 
6136 027004 104212 ERROR 212 +MSH BO ERROR 
6137 027006 104213 ERROR 213 MSG Al ERROR 
6138 027010 104214 ERROR 214 MSG B81 ERROR 
6139 027012 012737 000001 005464 MOV #1, UNITB + SETUP PORT 8 
6140 027020 112737 000102 056576 MOVs #'B, MSG19A 
6141 027026 004737 043750 JSR PC, TSTATN 
6142 027032 o0C4O1 BR TST22 ++GOTO NEXT TST 
ome 027034 104115 ERROR 115 ;ATTN SET ON PORT B,. AFTER RLS FROM PORT B 
6145 3s RERAAAARAAAAAA SAA AAA ALARA AAA AAA AA AAA AAAS AAAS AAA AAA AAA AA AA AAAS 
the a 22 TEST RELEASE BY PORT ‘B' WHEN SEIZED BY PORT ‘A’ 
6148 ;* VERIFY THAT A RELEASE ISSUED BY ONE PORT IS NOT RECOGNIZED IF 
eh + THE ORIVE IS SEIZED BY THE OTHER PORT 
a ae ;* A. SEIZE THE DRIVE THRU PORT ‘A’. 

1 -* 
6153 eS B. ISSUE A RELEASE THRU PORT 'B' & VERIFY DRIVE STILL SEIZED 
6154 ;* BY PORT ‘A’. 
6155 +* 
6156 pe oo 0056559059 0959 959596959999 090 29099929 0290 89 02282 23 000 00 27D D8! 
6157 027036 9000004 TST22: SCOPE 
6158 027040 612737 000001 001174 MOV #1, STIMES +;D0 1 ITERATION 
6159 027046 012706 001100 MoV @STACK. SP 
6160 027052 012737 OO00000 005464 MoV #0. UNITB +SETUP PORT A 
6161 027060 112737 000101 056576 MOVB #'A,MSG19A 
6162 027066 012737 005466 001366 MOV TIMER, COUNT 
coon 027074 004737 047204 JSR PC. THO ;D0 TIMEOUT 

164 
6165 027100 004737 045534 JSR PC, SUBCLR 
ot 027104 104024 ERROR 24 *>CERR AFTER SCLR 
616 
6168 
6169 027106 004737 044172 JSR PC, ORAV * SEE IF DRIVE AVAIL 
6170 027112 104045 ERROR 45 PORT A NOT AVAIL AFTER TMO 
6171 027114 013765 001222 000010 MoV SUNIT, RKCS2(RS) ;SETUP FOR PORT 8 
6172 027122 012737 000001 005464 MoV #1, UNITB 
6173 027130 663765 005464 300010 ADD UNI TB, RKCS2(R5) 
6174 027136 112737 000102 056576 MOVB #'B. MSG19A 
6175 027144 062765 000010 600010 ADD @RLS.RKCS2Z2(R5) RELEASE PORT B 
6176 027152 012737 000001 005314 Mov #SELORV. HCS1 . 
6177 027160 004737 043372 JSR PC. DOCMD DO SELDRV ‘STATUS) CMO & GET CONTR ROY 
6178 027164 104117 ERROR 117 +NO ROY AFTER SEL DRY CHO 
6179 
6180 027166 013765 001222 000010 Mov SUNIT.RKCSZ2(RS) ; SETUP FOR PORT A 
6181 027174 012737 OO00000 005464 MoV #0. UNITB 
6182 027202 063765 005464 000010 ADD UNI TB. RKCS2(R5) 
6183 027210 112737 000101 056576 MOvB #°A, MSGI9A 
6184 027216 012737 000001 005314 MoV @SELORV. HCS1 


6185 027224 004737 043372° JSR PC, DOCMD (DO SELORY «STATUS! CMO & GET CONTR ROY 


8 10 
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DZROGA. P11 29-SEP-77 09: 55 722 TEST RELEASE BY PORT 'B* WHEN SEIZED BY PORT ‘A’ 


027230 104117 117 NO RKY AFTER SEL ORV CHD 


027232 032737 O00040 005342 #0. DRA, HARZ +SEE IF ORIVE AVAIL ON PORT A 
027240 001001 64S R IF YES 
frrine 104071 71 PORT A NOT AVAIL AFTER PORT B RLS 


027244 012737 010340 005404 #<D. ORA!'D. ORA!'D. SPIN!D. ORDY!D. V¥>.E. AO -; EXPECTED MSG AD 
027252 005037 005406 E. 80 EXPECTED MSG BO 

027256 012737 001720 005410 #<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.£.A1 EXPECTED Al 
027264 012737 000001 005412 #1,€. B1 sMSG 10 FOR EXPECTED MSG B1 

027272 005037 005414 c. sEXPECTED MSG AZ 

027276 012737 000002 005416 ;' ;MSG 1D FOR EXPECTED MSG B2 

027304 012737 O00003 005422 , +MSG 1D FOR EXPECTED MSG B3 


027312 004737 044274 , +CHECK MSGS AO, BO. Al. Bi 

027316 000000 : 0'0!0 +& MSGS SPECIFIED HERE 

027320 104211 +MSG AO ERROR AFTER RELEASE ISSUED 
027322 104212 MSH BO ERROR 

027324 104213 +MSG Ail ERROR 

027326 104214 *MSG B1 ERROR 


55 AAKKKAAAA AKA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
;KTEST 23 TEST RELEASE BY PORT ‘A’ WHEN SEIZED BY PORT '‘B' 


;x 
x THE PREVIOUS TEST IS REPEATED FOR PORT ‘B' 
x 


Foe $22992 9999599960995 5 9999099592999 02> 5009000299 0295092859099 00 8 | 
027330 000004 TST23: SCOPE 
027332 012737 000001 001174 #1,STIMES +;DO0 1 ITERATION 
027340 012706 001100 RSTACK, SP 
027344 012737 000001 005464 #1,UNITB SETUP PORT B 
027352 112737 000102 056576 #'B,.MSG19A 
027360 013737 005466 001366 TIMER, COUNT 
027366 004737 047204 PC, TMO ;DO TIMEOUT 


027372 004737 045534 PC, SUBCLR 
027376 104024 24 >CERR AFTER SCLR 


027400 004737 044172 PC, DRAV +SEE IF DRIVE AVAIL 

027404 104045 45 ;PORT B NOT AVAIL AFTER THO 

027406 013765 001222 900010 SUNIT,RKCS2(R5) ; SETUP FOR PORT A 

027414 012737 OO00000 005464 #0. UNITB 

027422 063765 005464 000010 UNI TB, RKCSZ(R5) 

027430 112737 000101 056576 #'A,MSG19A 

027436 062765 000010 000010 #RLS,-RKCSZ(R5) ;RELEASE PORT A 

027444 012737 000001 005314 #SELORV, HCS1 

027452 004737 043372 PC. DOCND ;D00 SELDRV (STATUS) CMD & GET CONTR RDY 
027456 104117 117 7NO RDY AFTER SEL ORV CHMOD 


027460 013765 001222 000010 SUNIT,RKCSZ2(R5) ;SETUP FOR PORT B 
000001 005464 #1, UNITB 
005464 000010 oy RKCS2(R5) 
000102 056576 #'B, MSG19A 

027510 012737 000001 905314 #SELORV, HCS1 
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DZROGA. P11 29-SEP-77 09: 55 723 TEST RELEASE BY PORT 'A' WHEN SEIZED BY PORT ‘B’ 
6242 927516 004737 043372 JSR PC, DOCND ;DO0 SELORV (STATUS) CMD & GET CONTR RDY 
as 027522 104117 ERROR 117 +NO RKY AFTER SEL DRV CMD 
6245 027524 032737 O00040 005342 BIT #0. ORA, HMRZ SEE IF DRIVE AVAIL ON PORT B 
6246 027532 001001 BNE 64S +BR IF YES 
6247 027534 104071 ERROR 71 PORT B NOT AVAIL AFTER PORT A RLS 
ey 027536 64S: 
6250 027536 012737 010340 005404 MoV #<D. ORA!'D. DRA!'D. SPIN!'D. DROY!D. V¥>.E.AO ; EXPECTED MSG AD 
6251 027544 005037 005406 CLR E. B80 ;EXPECTED MSG BO 
6252 027550 012737 001720 005410 MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.£.A1 EXPECTED Al 
6253 027556 012737 000001 005412 MoV #1,€. B1 +MSG 1D FOR EXPECTED MSG B1 
6254 027564 O0&037 005414 CLR E. AZ EXPECTED MSG AZ 
6255 027570 012737 O00002 005416 MOV #2,E.B2 +MSG 10 FOR EXPECTED MSG B2 
eg 027576 012737 O00003 005422 MOV #3,E.B3 ;MSG 1D FOR EXPECTED MSG B3 
625: 
6258 027604 004737 044274 JSR PC, CHKMSG CHECK MSGS AO. BO. Al. Bi 
6259 027610 000000 .WORD Q!0!0 +& MSGS SPECIFIED HERE 
6260 027612 104211 ERROR 211 *MSG AO ERROR AFTER RELEASE | SSUED 
6261 027614 104212 ERROR 212 +MSH BO ERROR 
6262 027616 104213 ERROR 213 >MSG Al ERROR 


027620 104214 ERROR 214 *MSG B1 ERROR 


UN | BUS 


DZR6GA. 
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027622 


027706 


027710 
027716 
027724 
027732 
027740 
027746 
027752 


027754 
027762 
027764 
027766 
027766 
027772 


027774 
030002 
030010 
030014 
030016 
030024 
030032 
030040 
030046 
030054 
030062 
030066 


030070 
030076 
030104 
030112 


ooco04 
012737 
012706 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


012765 
012737 
004737 
104131 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 


000001 
001100 
001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


045534 


000012 
000017 
043372 


001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
900010 
056576 
005314 


005342 


000020 
005314 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 


ee ee ee ee ee ee ee ee 7 
ee ee 


% 
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TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 


B. VERIFY THE ORIVE 


ial RET Cameeats Fei nah GY teeta GaLaaeE. PORT | 


TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 


A. ISSUE & SEEK COMMAND TO CYL 10 FROM PORT ‘A’ & AN 
IMMEDIATE RELEASE TO PORT ‘A’ 


1S AVAILABLE TO PORT 'B' & PORT B SEES ATTN 


C. VERIFY PORT A DOES NOT RAISE ATTN WHEN SEEK COMPLETED 


> apa 7 = ged aaa ogg eeu gpcaaaiata eat eR fae 
ST24: PE 


645: 


#1,STIMES 
#STACK, SP 

SUNIT, RKCS2(RS) 
#1,UNITB 

UNITB, RKCS2(R5) 
#'B, MSG19A 
#RLS, RKCSZ2(R5) 
#SELDRV, HCS1 
PC, DOCND 

117 


SUNIT, RKCS2(R5) 
#0, UNITB 

UNI TB, RKCS2(R5) 
#'A,.MSG19A 
#SELORV, HCS1 
PC, DOCMD 

117 


#0. ORA. HMR 2 
645 a 


71 
PC, SUBCLP 
24 


#10. ,-RKOC(RS) 
#SEEK, HCS1 
PC, DOCMD 


131 
SUNIT, RKCS2(R5) 
#0, UNITB 

UNITB, RKCS2(R5) 
#'A, MSG19A 
@RLS, RKCSZ(R5) 
#SELORV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2(R5) 
#1, UNITB 

UNI TB, RKCS2(R5) 
#'B.MSG19A 


+-D0 1 ITERATION 
+SETUP FOR PORT B 


RELEASE PORT B 


+DO SELDRV (STATUS) CMD & GET CONTR RDY 
>NO RDY AFTER SEL DRV CMD 


>SETUP FOR PORT A 


>DO SELORV (STATUS) CMD & GET CONTR RDY 
;NO RKY AFTER SEL DRV CMD 


;SEE IF DRIVE AVAIL ON PORT A 


*BR IF YES 
;PORT A NOT AVAIL AFTER PORT B RLS 


>CERR AFTER SCLR 


7>DO SEEK CMD & GET CONTR READY 
>NO ROY AFTER SEEK CMD 
;SETUP FOR PORT A 


*RELEASE PORT A 


>DO SELDRV (STATUS) CMO & GET CONTR RDY 
>NO RDY AFTER SEL ORV CMO 


>SETUP FOR PORT B 


SEQ 0120 


UN|BUS 
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Pil 


030120 
030126 
030132 


030134 
030142 
030144 
030146 
030146 
030154 
030160 


030162 
030170 
030174 
630202 
030210 
030214 
030222 


030230 
030234 
030236 
030240 
030242 
030244 
030246 
030254 
030262 
030270 
030276 
030304 
030312 
030316 


030320 
030326 
030334 
030342 
030350 
030356 
030362 


030364 


030406 


030406 
030414 
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012737 
004737 
104117 


032737 
001001 
104071 


013737 
004737 
104152 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104145 
104146 
104147 
104150 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
000401 
104160 


012737 
005037 


000001 
043372 


000040 


001412 
044106 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


043750 


010340 
005406 


005314 


005342 


005352 


005404 


005410 
005412 


005416 
005422 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


005404 
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TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 


MOV #SELORV, HCS1 


JSR PC, DOCMD +00 SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 117 ;NO RKY AFTER SEL ORV CMD 

BIT #0. DORA, HMRZ +SEE IF DRIVE AVAIL ON PORT B 

BNE 65$ BR IF YES 

ERROR 71 PORT B NOT AVAIL AFTER PORT A RLS 


Mov TS50000. TEMP 1 
JSR PC, FATT2 
ERROR 152 ;NO ATTN ON PORT B AFTER SEEK & RLS FROM PORT A 


MOV #<D. DRA!'D. OSC!D. SPIN'D. DRDY!D. VV>.E.AO -EXPECTED MSG AD 


CLR E. BU EXPECTED MSG BO 

MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.£.A1 : EXPECTED Al 
MOV #1,€.B1 -MSG 1D FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 


+MSG 1D FOR EXPECTED MSG B2 
-MSG 1D FOR EXPECTED MSG B3 


JSR PC. CHKMSG CHECK MSGS AO, BO. Al. Bi 

.WORD 0'0'0 *& MSGS SPECIFIED HERE 

ERROR 145 7MSG AO ERROR AFTER SEEK & RLS FROM PORT A 
ERROR 146 *MSH BO ERROR 

ERROR 147 *MSG Al ERROR 

ERROR 150 *MSG Bi ERROR 

MoV SUNIT.RKCSZ2(R5) ;SETUP FOR PORT B 

MOV #1,UNITB 


ADD UNITB, RKCS2(R5) 
MOVB #'B,MSG19A 
ADD @RLS,RKCSZ(R5) ;RELEASE PORT B 


MOV #SELORV, HCS1 
JSR PC, DOCMD >DO SELORV (STATUS) CMO & GET CONTR RDY 


ERROR 117 7NO RDY AFTER SEL DRY CMD 
MOV SUNIT.RKCSZ2(R5) ; SETUP FOR PORT A 
MOV #0, UNITB 


ADD UNITB, RKCS2(R5) 
MOVB #'A,MSG19A 
MoV #SELORV, HCS1 


JSR PC, DOCMD ;DO SELDRV (STATUS) CMD & GET CONTR RDY 


ERROR 117 -NO RKY AFTER SEL ORV CMD 

BIT #D. ORA, HMRZ >SEE IF DRIVE AVAIL ON PORT A 

BNE 66$ :BR IF YES 

ERROR 71 PORT A NOT AVAIL AFTER PORT B RLS 

JSR PC, TSTATN 

BR 1$ 

ERROR 160 ATTN ON PORT A AFTER SEEK & RLS FROM PORT A 


MOV #<0. ORA'D. SPIN'D. ORDY'D. VWV¥>.E.AQ -EXPECTED MSG AD 
CLR E. B60 *-EXPECTED MSG BO 
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030420 
030426 
030434 
030440 
030446 


030454 
030460 
030462 
030464 
030466 
030470 


030472 
030474 


030560 
030566 
030574 
030602 
030610 
030616 
030622 


030624 
030632 
030634 
030636 
030636 
030642 


030716 


29-SEP-7 


012737 
012737 
005037 
012737 
012737 


004737 
000000 
104145 
104146 
104147 
104150 


CO0004 
012737 
012706 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


012765 
012737 
004737 
104131 
013765 
012737 
063765 
112737 
062765 


001720 
000001 
005414 
000002 
000003 


044274 


000001 
001100 
001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


045534 


000000 
000017 
043372 


001222 
000001 
005464 
000102 
000010 


005410 
005412 


005416 
005422 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


000020 
005314 


000010 
005464 
000010 
056576 
000010 


RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC 
7 09: 55 T24 


F 10 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 122 
TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT A 


MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP>.E.A1 -;EXPECTED Al 


MOV #1,€.B1 +MSG 1D FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 

MOV #2.€. B2 +MSG 1D FOR EXPECTEC MSG B82 

Mov #3,.€.B3 s+MSG 1D FOR EXPECTED MSG B3 

JSR PC, CHKNSG CHECK MSGS AO, BO, Al, Bi 

.WORD O!0!0 +& MSGS SPECIFIED HERE 

ERROR 145 ;MSG AO ERROR AFTER SEEK & RLS FROM PORT A 

ERROR 146 MSH BO ERROR 

ERROR 147 +MSG Ai ERROR 

ERROR 150 +MSG B1 ERROR 
jp REXAAAAAAAA AAA AAA AAA AAA AAA AS AAA AAA AA AA AAA AA AAA AA AA AA AAA EAA EAE 
a 25 TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 
Xk THE PREVIOUS TEST IS REPEATED FOR PORT ‘B', 
- BUT THE SEEK IS TO CYLINDER O 
5p AAXKKAAAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAT AE AE 
TST25: SCOPE 


MOV #1,STIMES +;D0 1 ITERATION 
MOV #STACK, SP 

MoV SUNIT.RKCS2(R5) ; SETUP FOR PORT A 
MoV #0, UNITB 

ADD UNI TB, RKCS2(R5) 

MOVB #'A, MSG19A 

ADD #RLS,RKCSZ2(R5) ;RELEASE PORT A 


MOV #SELORV, HCS1 
JSR PC, DOCMD DO SELDRV (STATUS) CMD & GET CONTR RDY 


ERROR 117 ;NO RDY AFTER SEL DRV CMD 
MOV SUNIT,RKCS2(R5) ;SETUP FOR PORT B 
MOV #1-UNITB 


ADD UNITB, RKCS2(R5) 
MOVB #'B,.MSG19A 
MoV #SELORV. HCS1 


JSR PC. DOCMD >DO SELDRV (STATUS) CMD & GET CONTR RDY 


o4S: 


ERROR. 117 7NO RKY AFTER SEL DRV CMD 

BIT #D. DORA, HMR2 >SEE IF DRIVE AVAIL ON PORT B 

BNE 64S BR IF YES 

ERROR 71 ;PORT B NOT AVAIL AFTER PORT A RLS 
JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 


MoV #0, RKOC (RS) 
MOV #SEEK, HCS1 


JSR PC, DOCND *DO SEEK CMO & GET CONTR PEADY 
ERROR 131 NO RDY AFTER SEEK CMD 

MOV SUNIT. RKCS2(R5) ; SETUP FOR PORT B 

MOV #1,UNITB 

ADD rhe RKCS2(R5) 

MOVB #'B, MSG19A 


ADD @RLS.RKCS2(R5) -;RELEASE PORT B 


SEQ 0122 


G 10 rere: 

UNIBUS RKOG-RKO? DUAL PORT DRIVE DIAGNOSTIC — MACYI1 30(10¥G) 29-SEP-77 10:08 PAGE 123 SEQ 0123 
DZR6GA.P11 29-SEP-77 09: 55 125 ss TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 

6433 030724 012737 000001 005314 MOV  =- #SELDRV. HCS1 

6434 030732 004737 043372 JSR PC, DOCHD D0 SELORV (STATUS) CMD & GET CONTR RDY 

e435 030736 104117 ERROR 117 ;NO ROY AFTER SEL DRV CMD 

6437 O30740 013765 001222 000010 MOV —- SUNIT, RKCS2(RS) ; SETUP FOR PORT A 

6438 030746 012737 OO0000 O05464 MOV #0, UNI TB 

6439 030754 063765 005464 O00010 ROD —sUNITB, RKCS2(R5) 

6440 030762 112737 000101 056576 MOVB =-#'A, MSG19A 

6441 030770 012737 000001 005314 MOV = RSELDRV. HCS1 

6442 030776 004737 043372 JSR PC, DOCHD D0 SELDRV (STATUS) CMD & GET CONTR RDY 

evs 031002 104117 ERROR 117 NO RKY AFTER SEL DRY CMD 

6445 031004 032737 000040 005342 BIT #D.DRA,HMR2 = SEE IF DRIVE AVAIL ON PORT A 

6446 031012 001001 BNE 65 BR IF YES 

6447 O31G14 104071 ERROR 71 ;PORT A NOT AVAIL AFTER PORT B RLS 

6448 031016 65S: 

6449 031016 013737 001412 005352 MoV —- TS0000, TEMP 1 

6450 031024 004737 044106 JSR PC, FATT2 

evi 031030 104182 ERROR 152 ;NO ATTN ON PORT A AFTER SEEK & RLS FROM PORT B 

6453 

6454 031032 012737 050340 005404 MOV —«-#<D. DRA!D. DSC !D. SPIN'D. DRDY!D. VV>.E. AQ EXPECTED MSG AO 

6455 031040 005037 005406 CLR = E. BO EXPECTED MSG BO 

6456 031044 012737 001720 005410 MOV —«#<D. SPOK!D. CART!D. DOOR'D. BRHM!D. SSP>.E.A1 ; EXPECTED Al 

6457 031052 012737 000001 005412 mov = #1 E. BI ;MSG 10 FOR EXPECTED MSG Bt 

6458 031060 005037 005414 CLR s«E. A2 EXPECTED MSG AZ 

6459 031064 012737 000002 005416 MOV = #2, E. B2 :MSG ID FOR EXPECTED NSG B2 

6460 031072 012737 000003 005422 MOV = #3, E. B3 ;MSG 1D FOR EXPECTED MSG B3 

6461 

6462 031100 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AO, BO. Al, BI 

6463 031104 000000 “WORD 0'0!0 8 MSGS SPECIFIED HERE 

6464 031106 104145 ERROR 145 ;MSG AO ERROR AFTER SEEK & RLS FROM PORT B 

6465 031110 104146 ERROR 146 ;MSH BO ERROR 

6466 031112 104147 ERROR 147 ;MSG Al ERROR 

6467 031114 104150 ERROR 150 :MSG B1 ERROR 

6468 031116 013765 001222 000010 MOV —- SUNIT. RKCS2(RS) ; SETUP FOR PORT A 

6469 031124 012737 OO0000 005464 MOV #0, UNI TB 

6470 031132 063765 005464 000010 ADD —sUUNI TB, RKCS2(R5) 

6471 031140 112737 000101 056576 move #'A, MSG19A 

6472 031146 062765 000010 000010 ADD «RLS. RKCSZ2(R5) RELEASE PORT A 

6473 031154 012737 000001 005314 MOV - RSELORV, HCS1 

6474 031162 004737 043372 JSR PC, DOCND ;DO SELDRV (STATUS) CMD & GET CONTR RDY 

6475 031166 104117 ERROR 117 NO ROY AFTER SEL ORV CMD 

6476 

6477 031170 013765 001222 000010 MOV —« SUNIT. RKCSZ2(R5) SETUP FOR PORT B 

6478 031176 012737 00001 005464 MOV = #1, UNI TB 

6479 031204 063765 005464 000010 ADD  —sUWITB, RKCS2(R5) 

6480 031212 112737 000102 056576 MOVE  #&'B, MSGI9A 

6481 031220 012737 000001 005314 MOV  —- RSELORV, HCS1 

6482 031226 004737 043372 JSR PC, DOCND DO SELDRV (STATUS) CMD & GET CONTR RDY 

6483 031232 104117 ERROR 117 NO RKY AFTER SEL DRY CMD 

6484 

6485 031234 032737 900040 005342 BIT D.DRA,HMR2 = ;SEE IF DRIVE AVAIL ON PORT B 

6486 031242 001001 BNE 668 :BR IF YES 

6487 031244 104071 ERROR 71 :PORT B NOT AVAIL AFTER PORT A PLS 


6488 031246 oo. 


UNI BUS 
DZR6GA. 


6489 
6490 
6491 
6492 
6493 
6494 
6495 


Pil 


031246 
031252 
031254 


031256 


031256 
031264 
031270 
031276 
031304 
031310 
031316 


031324 
031330 
031332 
031334 
O03133€ 
0231340 


031342 
031344 
031352 
031356 
031362 
031364 
031372 
031400 
031406 
031414 
031422 
031430 
031434 


031436 
031444 
021452 
031460 
031466 
031474 
031500 
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004737 
000401 
104160 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104145 
104146 
104147 
104150 


00U004 


004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000001 
001100 
045534 


001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 
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005404 


005410 
005412 


005416 
005422 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


24 
TEST COMMAND FOLLOWED BY IMMEDIATE RELEASE: PORT B 
JSR PC, TSTATN 
1$ 


BR 

ERROR 160 ; ATTN ON PORT B AFTER SEEK & RLS FROM PORT B 
1$: 

MOV #<D. ORA'D. SPIN'D. ORDY'D. V¥>.E. AO ;EXPECTED MSG AOD 

CLR —. 80 ; EXPECTED MSG BO 

MoV #<0. SPOK'!D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 

MOV #1,€. B1 ;MSG 1D FOR EXPECTED MSG B1 

CLR E.A2 ; EXPECTED MSG AZ 

MOV #2,€. 82 MSG 10 FOR EXPECTED MSG 82 

MOV #3,€.83 ;MSG 1D FOR EXPECTED MSG B3 

JSR PC, CHKMSG ; CHECK MSGS AO. BO. Al. Bt 

-wOoRD O'0!0 ;& MSGS SPECIFIED HERE 

ERROR 145 ;MSG AO ERROR AFTER SEEK & RLS FROM PORT B 

ERROR 146 ;MSH BO ERROR 

ERROR 147 ;MSG Ai ERROR 

ERROR 150 +MSG B1 ERROR 


me $250250090000605009039509559555552552222230235225223 223923032 
/ATEST 26 TEST TIMEOUT RETRIGGER THRU PORT ‘A’ 


VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE PETRIGGERED 
A. PORT ‘A’ SEIZES THE DRIVE 
B. THE PROGRAM WAITS SOOMS & RE-SEIZES THE DRIVE THRU PORT ‘A’ 


C. PORT 'B' ATTEMPTS TO SEIZE THE DRIVE & THE PROGRAM 
VERIFIES THAT FULL TIMEOUT TOOK PLACE FROM STEP B ABOVE. 


Ws We he BS Me. ae Ba. We 
Se Rt Ot Ot OE me Ee et CE 


UTTTTTTT TTT ttt ttt terete iti t et tit it tttstit itt t titi tts t itis 
TST26: SCOPE 


MOV #1,STIMES >,00 1 ITERATION 
MoV #STACK, SP 
JSR PC, SUBCLR 
ERROR 24 >CERR AFTER SCLP 
MoV SUNIT.RKCS2(R5) > SETUP FOR PORT E 
MoV #1,UNITB 


ADD UNITB.RKCS2(R5) 

MOVB #‘'B,. MSG19A 

ADD @RLS,RKCS2(R5) ;RELEASE PORT B 
MOV #SELORV, HCS1 

JSR Pc, DOCMD 00 SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 117 >NO ROY AFTER SEL CPW CMO 


MOV SUNIT.RKCS2(R5) ; SETUP FOR POPT A 

MoV #0, UNITB 

ADD UNITB, RKCS2(R5) 

MOVB #'A, MSG19A 

MoV #SELORV, HCS1 

JSP PC, DOCND :DO0 SELDRV (STATUS! CMO & GET CONTR PDY 
ERROP 8117 >NOQ PKY AFTER SEL DPW CMD 


5 ee tiie a ea, 


| 
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DZRO6GA. P11 29-SEP-77 09: 55 T26 TEST TIMEOUT RETRIGGER THRU PORT ‘A’ 
6545 
6546 031502 032737 OO0040 005342 , BIT #0. DORA, HMR2Z ;SEE IF DRIVE AVAIL ON PORT A 
6547 0231510 001001 BNE 64S ;BR IF YES 
6548 031512 104071 ERROR 71 ;PORT A NC” AVAIL AFTER PORT B RLS 
6549 031514 645: 
6550 031514 004737 045534 JSR PC, SUBCLR 
ot} 031520 104024 ERROR 24 ;CERR AFTER SCLR 
6553 031522 012737 000036 001366 MoV #30. , COUNT 
6554 031530 004737 047204 JSR PC, THO +00 SOOMS TIMEOUT 
6555 031534 004737 044172 JSR PC, DRAV ;RE-SEIZE ORIVE THRU PORT A 
= 031540 104045 ERROR 45 ;PORT A NOT AVAIL AFTER TIMEOUT 
6558 031542 012737 010340 005404 MOV #<D. DRA'O'D. SPIN'D. DRDY'D. VW>.E. AQ ;EXPECTED MSG AD 
6559 031550 005037 005406 CLR —. 80 ; EXPECTED MSG BO 
6560 031554 012737 601720 005410 MoV #<D. SPOK'!D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
6561 031562 012737 000001 005412 MOV #1,€. B1 ;MSG 1D FOR EXPECTED MSG B1 
6562 031570 005037 005414 CLR E.A2 ; EXPECTED MSG AZ 
6563 031574 012737 OO0002 05416 MOV #2,£. B2 ;MSG ID FOR EXPECTED MSG B82 
re 031602 012737 OO00CO3 005422 MoV #3,€.B3 ;MSG ID FOR EXPECTED MSG B3 
656 
6566 031610 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AO. BO. Al, B1 
6567 031614 9O00000 -WORD O'0'0 ;& MSGS SPECIFIED HERE 
6568 031616 104165 ERROR 165 ;MSG AO ERROR AFTER TIMEOUT 
6569 031620 104166 ERROR 166 ;MSH BO ERROR 
6570 031622 104167 ERROR 167 /MSG Al ERROR 
6571 031624 104170 ERROR 170 ;MSG B1 ERROR 
6572 031626 012737 177777 001366 MOV #-1, COUNT 
6573 031634 004737 047114 JSR PC, CLKON > TURN ON CLOCK 
6574 031640 012737 000001 005464 MOV #1, UNITB ; SETUP PORT B 
6575 031646 004737 044172 JSR PC, DRAV ;SEE IF ORV AVAIL 
6576 031652 000401 BR 1$ ;BR IF NO 
6577 031654 104103 ERROR 103 ;PORT A AVAIL BEFORE TMO OR RLS 
6578 031656 112737 000102 056576 15%: MOVB #'B.MSG19A 
6579 031664 013704 001222 MOV SUNIT,R4Y 
6580 031670 063704 005464 ADD UNITB, RY 
6581 031674 004737 044214 JSR PC, FATT 
6582 031700 104110 ERROR 110 ;NO ATTN ON PORT B TO ALLOW SEIZE 
6583 
6584 031702 004737 047162 JSR PC, CLKOF >; TURN CLOCK OFF 
6585 031706 005137 001366 COM COUNT >;GET ACTUAL COUNT OF TIMEOUT 
6586 031712 023727 001366 9000043 CMP COUNT, #35. ; COMPARE COUNT ASAINST APPROX 1 SEC 
6587 031720 002091 BGE TST27 +;GO TO NEXT TEST 
6588 031722 104153 ERROR 153 ; TIMEOUT DID NOT RE-TRIGGER 
6589 
6590 Ae me ge peaee og Py tre Ye eee 
6591 S4TEST 2 TEST TIMEOUT RETRIGGER THRU PCRT ‘B' 
6592 fe 
6593 ot THE PREVIOUS TEST IS REPEATED FOR PORT ‘B'. 
6594 ;x 
6595 [0g ggg OO IOI OI III IO IOI 
6596 031724 000004 TST27: SCOPE 
6597 031726 012737 000001 001174 MOV #1,STIMES ;;D00 1 ITERATION 
6598 031734 012706 001100 MoV #STACK, SP 
6599 031740 004737 045534 JSR PC, SUBCLR 


6600 031744 104024 ERROR 24 >CERR AFTER SCLP 
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UNIBUS RKOG-RKO? DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 126 SEQ 0126 


DZR6GA. P11 29-SEP-77 09: 55 127 TEST TIMEOUT RETRIGGER THRU PORT ‘B' 
6601 031746 013765 001222 000010 MOV ae + SETUP FOR PORT A 
6602 031754 012737 OO00000 005464 MOV #0,U 
6603 031762 063765 005464 000010 AOD a ta IRKCS2(RE) 
6604 031770 112737 000101 056576 MOVB #'A, MSGI9A 
6605 031776 062765 000010 000010 ADD #RLS, RKCS2(RS) +RELEASE PORT A 
6606 032004 012737 000001 005314 MOV #SELORV, HCS1 
6607 032012 004737 043372 JSR PC, DOCND +DO0 SELORV (STATUS) CMD & GET CONTR RDY 
aan 032016 104117 ERROR 117 +NC RDY AFTER SEL ORV CMD 
6610 032020 013765 001222 000010 MoV SUNIT,RKCS2(R5) ; SETUP FOR PORT B 
6611 032026 012737 000001 005464 MOV #1, UNITB 
6612 032034 063765 005464 000010 ADD UNI TB, RKCS2(R5) 
6613 032042 112737 000102 056576 MOVB #'B, MSG19A 
6614 032050 012737 000001 005314 MOV #SELDORV, HCS1 
6615 032056 004737 043372 JSR PC, DOCMD +00 SELORV (STATUS) CMD & GET CONTR RDY 
aete 032062 104117 ERROR 117 ;NO RKY AFTER SEL DRV CMD 
1 
6618 032064 032737 OO004O 005342 BIT #D. DRA, HMR2 +SEE IF DRIVE AVAIL ON PORT B 
6619 032072 001001 BNE 64S 7BR IF YES 
6620 032074 104071 ERROR 71 +PORT B NOT AVAIL AFTER PORT A RLS 
6621 032076 645: 
6622 032076 004737 045534 JSR PC, SUBCLR 
8 032102 104024 ERROR 24 *+CERR AFTER SCLR 
6624 
6625 032104 012737 000036 001366 MOV #30. , COUNT 
6626 032112 004737 047204 JSR PC, THO D0 SOOMS TIMEOUT 
6627 032116 004737 044172 JSR PC. DRAV ;RE-SEIZE DRIVE THRU PORT B 
6628 032122 104045 ERROR 45 ;PORT B NOT AVAIL AFTER TIMEOUT 
6629 
6630 032124 012737 010340 005404 MOV #<D. ORA'O!D. SPIN'D. ORDY'D. VV>.E.AQ ;EXPECTED MSG AD 
6631 032132 005037 005406 CLR E. 80 EXPECTED MSG BO 
6632 032136 012737 001720 005410 MoV hy SPOK!D. CART!D. DOOR!'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
6633 032144 012737 000001 005412 MOV 1,€.B1 7MSG ID FOR EXPECTED MSG B1 
6634 032152 005037 005414 CLR 4 a2 EXPECTED MSG AZ 
6635 032156 012737 000002 905416 MOV #2.€.B82 *MSG 1D FOR EXPECTED MSG B2 
ot 032164 012737 O00003 005422 MOV #3,E.B3 *MSG 1D FOR EXPECTED MSG B3 
66 
6638 032172 004737 044274 JSR PC, CHKMSG +CHECK MSGS AQ, BO. Al, Bi 
6639 032176 000000 .WORD O!0!0 7>& MSGS SPECIFIED HERE 
6640 032200 104165 ERROR 165 *MSG AO ERROR AFTER TIMEOUT 
6641 032202 104166 ERROR 166 +MSH BO ERROR 
6642 032204 104167 ERROR 167 *MSG Al ERROR 
6643 032206 104170 ERROR 170 7MSG B1 ERROR 
6644 032210 012737 177777 001366 MOV #-1, COUNT 
6645 032216 004737 047114 JSR PC, CLKON + TURN ON CLOCK 
6646 032222 012737 O00000 905464 MoV #0, UNITB +SETUP PORT A 
6647 032230 004737 044172 JSR Pc, DRAV +SEE IF ORV AVAIL 
6648 032234 000401 BR 1$ *BR IF NO 
6649 032236 104103 ERROR 103 PORT B AVAIL BEFORE TMO OR RLS 
6650 032240 112737 000101 056576 1%: MOVB #'A, MSG19A 
6651 032246 013704 001222 MoV SUNIT. R4 
6652 032252 063704 9005464 ADD UNITB. RY 
6653 032256 004737 044214 JSR PC, FATT3 
6654 032262 104110 ERROR 110 >NO ATTN ON PORT A TO ALLOW SEIZE 
6655 


6656 032264 004737 047162 JSR PC, CLKOF > TURN CLOCK OFF 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE ae 


DZROGA. P11 


032270 
032274 
032302 
032304 
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005137 001366 

023727 001366 000043 
002001 

104153 


MACY11 30(1046) 
TEST TIMEOUT RETRIGGER THRU PORT ‘B' 


CON 
CMP 
BGE 
ERROR 


COUNT 


COUNT, #35. 
TST30 


153 


K 10 
29-SEP-77 10:08 PAGE 127 


+GET ACTUAL COUNT OF TIMEOUT 

; COMPARE COUNT AGAINST APPROX 1 SEC 
+;GO TO NEXT TEST 

+ TIMEOUT DID NOT RE-TRIGGER 


SEQ 0127 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE 10 


DZROGA. P11 


032306 
032310 
032316 
032322 
032326 
032330 
032336 
032344 
032352 
032360 
032366 
032374 
032400 


032402 
032410 
032416 
032424 
032432 
032440 
032444 


032446 
032454 
032456 
032460 
032460 
032464 


032466 


032510 
032512 


032564 
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000004 
012737 
012706 
004737 
104024 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104147 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


012737 
112737 
004737 
000401 
104103 


012765 


012737 
004737 


000001 
001100 
045534 


001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


045534 


000001 
000102 
044172 


100000 


000001 
043372 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


005464 
056576 


000000 
000010 
005464 
000010 
056576 
000010 
005314 


. we Be Be Be Be Be He He Be 
Seer eseeer ss 


MACY11 30(104%6) 
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TEST PORT ‘A’ TIMER INHIBIT 


PORT ‘A 


; AEXXEAAEAAARAAA LATE AA ALAA AAA ALAA AAA AAA ALARA AA TATE 
EST 30 TEST 


PORT ‘A’ TIMER INHIBIT 


PORT ‘A’ RELEASES T 


* SEIZES THE DRIVE 


A. 
q PORT r ATTEMPTS 1 SEIZE THE ORIVE 
‘ 


PORT ‘A 


HE DRIVE 
ATTEMPTS TO GET THE DRIVE BACK. 


THE PROGRAM VERIFIES THAT PORT ‘A’ CANNOT ACCESS 
THE DRIVE FOR APPROX 1 SEC 


[saan >" eet cae seme mance et pptcapstonininns 
: 


64S: 


1$: 


#1,STIMES 
#STACK, SP 
PC. SUBCLR 


24 

SUNIT, RKCSZ2(R5) 

#1, UNITB 

lye RKCS2(R5) 
#'B.MSG19A 

@#RLS, RKCSZ(R5) 

#SELDRV, HCS1 

PC, DOCND 

117 


SUNIT, RKCS2Z(R5) 
#0, UNITB 

UNITB, RKCS2(R5) 
#'A,MSG19A 
#SELDRV. HCS1 
PC, DOCMND 

117 


#D. DRA. HMRZ 
64S 

71 

PC, SUBCLR 
24 


#1, UNITB 
#'B,. MSG19A 
PC, ORAV 


1$ 
103 


@CCLR, RKCS1(RS) 
SUNIT, + eet 
#0. UN 
UNITB, IRKCSZ(RS) 
#°A, MNSG19A 
#RLS. RKCSZ(RS) 
#SELORV. HCS1 
PC, DOCMD 


+;D0 1 ITERATION 


*+CERR AFTER SCLR 
+ SETUP FOR PORT B 


;RELEASE PORT B 


;DO0 SELDRV (STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL DRY CMD 


+SETUP FOR PORT A 


D0 SELDRV (STATUS) CMD & GET CONTR RDY 
+NO RKY AFTER SEL ORV CMD 


;SEE IF ORIVE AVAIL ON PORT A 
7>BR IF YES 

;PORT A NOT AYAIL AFTER PORT B RLS 
>CERR AFTER SCLR 

SETUP FOR PORT B 

PORT B TRIES be SEIZE THE DRIVE 


BR IF NOT AVA 
>PORT B AVAIL BEFORE TMO OR RELEASE 


+SETUP FOR PORT A 


RELEASE PORT A 
DO SELDRV (STATUS) CMD & GET CONTP RD’ 


SEQ 0128 


UNI BUS 
DZR6GA. 


M 


10 
MACY11 301046) 29-SEP- 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC -77 10:08 PAGE 129 SEQ 0129 
Pil 29-SEP-77 09: 55 T30 TEST PORT ‘'A' TIMER INHIBIT 
032570 104117 ERROR 117 ;NO RDY AFTER SEL DRV CMD 
032572 013765 001222 000010 MoV SUNIT,.RKCS2(R&) >; SETUP FOR PORT B 
032600 012737 000001 005464 MOV #1. UNITB 
032606 063765 005464 000010 ADD hme 
032614 112737 000102 056576 MOVB #'B,.MSG19A 
032622 012737 000001 005314 MOV #SELORV, HCS1 
032630 004737 043372 JSR PC, DOCHD ;D0C SELORV (STATUS) CMD & GET CONTR RDY 
032634 104117 ERROR 117 +NO RKY AFTER SEL ORV CMD 
032636 032737 OO00040 005342 BIT #0. DRA, HMRZ ;SEE IF DRIVE AVAIL ON PORT B 
032644 001001 BNE 65$ ;BR IF YES 
C32646 104071 ERROR 71 PORT B NOT AVAIL AFTER PORT A RLS 
032650 655: 
032650 012737 O00000 005464 MOV #0, UNITB ;SETUP FOR PORT A 
032656 112737 000101 056576 MOVB #'A,MSG19A 
032664 004737 044172 JSR PC, ORAV 
032670 o00401 BR 23 
032672 104103 ERROR 103 >PORT A AVAIL BEFORE TMO OR RELEASE 
032674 . 012765 100000 000000 23%: Mov aCCLR, RKCS1 (RS) 
032702 012737477777 001366 MOV #-1, COUNT 
032710 004737 O47114 -\ JSR PC. CLKON 
032714 013704 001222 ; MOV SUNIT. RY 
032720 063704 005464 ~~ ADD UNi TB. RY 
032724 004737 O44214 JSR PC, FATT 
032730 104110 : ERROR 110 ;NO ATTN ON PORT A TO ALLOW SEIZE 
032732 004737 047162 JSR PC, CLKOF + TURN CLOCK OFF 
032736 005137 001366 COM COUNT +;GET ACTUAL COUNT OF TIMEOUT 
032742 023727 001366 000043 CMP COUNT, #35 ; COMPARE AGAINST APPROX 1 SEC 
032750 002001 BGE TST31 7;GO TO NEXT TST 
032752 104153 ERROR 153 > TIMEOUT DID NOT RE-TRIGGER 
35 KRXKXRAKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
{ ;AXTEST 31 TEST PORT ‘B' TIMER INHIBIT 
' Pe 
38 THE PREVIOUS TEST 1S REPEATED FOR PORT ‘B'. 
7x 
Pe Oo 09955 006000000000000000000000005506909990059005 5090009890003 | 
032754 000004 TST31: SCOPE 
032756 012737 000001 001174 MOV #1,STIMES 7-D0 1 ITERATION 
032764 012706 001100 MoV #STACK, SP 
032770 004737 O45534 JSR PC, SUBCLR 
032774 104024 ERROR 24 >CERR AFTER SCLP 
032776 013765 001222 000010 MoV SUNIT,RKCS2Z(R5) ; SETUP FOR PORT A 
033004 012737 GO0000 005464 MoV #0, UNITB 
033012 063765 005464 000010 ADD UNI TB, RKCS2(R5) 
033020 112737 000101 056576 MOVB #'A,. MSG19A 
033026 062765 000010 000010 ADD #@RLS.RKCSZ2(R5) -;RELEASE PORT A 
033034 012737 000001 005314 MoV #SELORV, HCS1 
033042 004737 043372 JSR PC, DOCMD 7DO SELDRV (STATUS) CMD & GET CONTR RDY 
O33046 104117 ERROR 117 >NO RDY AFTER SEL ORV CMD 
033050 013765 001222 9000010 MOV SUNIT.RKCS2(R5) ; SETUP FOR PORT B 
033056 012737 000001 005464 MOV #1, UNITB 


N 10 
UN'IBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 130 SEQ 0130 


DZROGA. P11 29-SEP-77 O9: 55 T31 TEST PORT ‘B’ TIMER INHIBIT 
6774 033064 063765 005464 000010 ADD UNITB. RKCS2Z(R5) 
6775 033072 112737 000102 056576 MOVB #'B. MSG19A 
6776 033100 012737 000001 005314 MOV #SELDRV, HCS1 
6777 033106 004737 043372 JSR PC, DOCMD +DO0 SELDRV (STATUS) CMD & GET CONTR RDY 
eh | 033112 104117 ERROR 117 +NO RKY AFTER SEL ORV CMD 
6780 033114 032737 OO0040 005342 BIT #0. DRA, HMRZ +SEE IF DRIVE AVAIL ON PORT B 
6781 033122 001001 BNE 64S IF YES 
6782 033124 104071 ERROR 71 ;PORT B NOT AVAIL AFTER PORT A RLS 
6783 033126 64S: 
6784 033126 004737 O45534 JSR PC, SUBCLR 
ehng 033132 104024 ERROR 24 ;CERR AFTER SCLR 
6787 033134 012737 O00000 905464 MOV #0, UNITB + SETUP FOR PORT A 
6788 033142 112737 000101 056576 MOVB #'A, MSG19A 
6789 033150 004737 044172 JSR PC. DRAV PORT A TRIES TO SEIZE THE DRIVE 
6790 033154 000401 BR 1$ *BR IF NOT AVAIL 
ete! 033156 104103 ERROR 103 PORT A AVAIL BEFORE TMO OR RELEASE 
6793 033160 012765 100000 9000000 1%: MOV @CCLR, RKCS1(R5) 
6794 033166 013765 001222 000010 MoV SUNIT,RKCSZ2(R5) ; SETUP FOR PORT B 
6795 033174 012737 000001 005464 MoV #1, UNITB 
6796 033202 063765 005464 000010 ADD UNI TB, RKCSZ(R5) 
6797 033210 112737 000102 056576 MOVB #'B, NSG19A 
6798 033216 062765 000010 000010 ADD #RLS.RKCSZ2(R5) RELEASE PORT B 
6799 033224 012737 000001 005314 MOV #SELORV, HCS1 
6800 033232 004737 043372 JSR PC, DOCND DO SELDRV (STATUS) CMD & GET CONTR RDY 
cook 033236 104117 ERROR 117 +NO ROY AFTER SEL ORV CMD 
680 
6803 033240 013765 001222 000010 MOV SUNIT.RKCSZ2(R5) >; SETUP FOR PORT A 
6804 033246 012737 OO0000 005464 MOV #0. UNITB 
6805 033254 063765 005464 000010 ADD UNITB, RKCS2(R5) 
6806 033262 112737 000101 056576 MOVB #'A, MSG19A 
6807 032270 012737 000001 005314 MoV #SELORV, HCS1 
6808 033276 004737 043372 JSR PC, DOCHD >DO SELDRV (STATUS) CMD & GET CONTR RDY 
eae 033302 104117 ERROR 117 ;NO RKY AFTER SEL ORV CMD 
6810 
6811 033304 022737 O00040 005342 BIT #0. DRA. HMRZ ;SEE iF DRIVE AVAIL ON PORT A 
6812 033312 001001 BNE 658 7BR IF YE 
6313 033314 104071 ERROR 71 [PORT A NOT AVRIL AFTER PORT B RLS 
6814 033316 65S: 
6815 033316 012737 000001 005464 MoV #1, UNITB » SETUP FOR POT 8 
6816 033324 112737 000102 956576 MOVB #°B. MSG19A 
6817 033332 004737 044172 JSR PC, DRAV 
6818 033336 000401 BR 2$ 
6819 O33340 104103 ERROR 103 -PORT B AVAIL BEFORE TMO OP PELEASE 
6820 
6821 033342 012765 100000 000000 2%. MoV @CCLR.RKCSIIRS) 
6822 033350 012737 177777 001366 MoV #-1, COUNT 
6823 033356 004737 O47114 JSR PC, CLKON 
6824 033362 013704 001222 MoV SUNIT, R4 
6825 033366 063704 005464 ACD UNITB. RY 
6826 033372 004737 O44214 JSR PC. FATTS 
6827 033376 104110 Erece 110 NO ATTN ON PORT B TO BLLOW SEICE 
6828 


6829 O33400 O04727 O471e2 JSP PC CLEOF TURN TLOCR OFF 





Sieiesiewentinaientene saimcmdameell 


B ii 
UNIBUS RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 131 SEQ 0131 


DZR6GA. P11 29-SEP-77 09: 55 T31 TEST PORT ‘B* TIMER INHIBIT 
6830 033404 005137 001366 Con COUNT +GET ACTUAL COUNT OF TIMEOUT 
6831 033410 023727 001366 000043 CMP COUNT, #35. i; COMPARE AGAINST APPROX 1 SEC 
6832 033416 002001 BGE TST32 ++GO TO NEXT TST 
6833 033420 104153 ERROR 153 ; TIMEOUT DID NOT RE-TRIGGER 





UNIBUS 
DZR6GA 


.Pul 


033422 
033424 
033432 
033436 
033440 
O33444 
033452 
033460 
033466 
033474 
033502 
033510 
033514 


033516 
033524 
033532 
033540 
033546 
033554 
033560 


033562 
033570 
033572 
033574 
033574 
033600 


033602 
033606 
033614 
033622 
033630 
033636 


29-SEP-77 09: 55 


000904 
012737 
004737 
104024 
012706 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


005237 


013737 


000001 
045534 


001100 
001222 
000001 
005464 
000102 
000010 
000001 
043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


045534 


005276 
O34046 
000007 
001170 
005314 
001400 


RKOG-RKO7 DUAL PORT DRIVE siento 


001174 


000010 
005464 
000016 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


001176 
005314 
005314 
000000 
005352 


Ss 


TEST 32 


Be Be Be 


. 
3t 2€ 24 2E 2 PE Dt DE FE DE DE FE DE 2¢ 34 3¢ 34 ~* 


We Be Be Be 


Be Ve Be 


Be Ve We Be Ne 


C ii 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 132 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘A’ 


>; AXXKAAAAAAAAAAAR AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KAA TT 


TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘A’ 


VERIFY THAT THE UNLOAD COMMAND THRU A PORT, SEIZES THAT 
PORT FOR AS LONG HAS HEADS ARE UNLOADED & RELEASE IS NOT 


| SSUED. 


A. ISSUE AN UNLOAD COMMAND THRU PORT '‘A' 
VERIFY DRIVE UNLOADS & ATTENTION IS SET 


B. DELAY FOR 5 SECONDS & VERIFY DRIVE NOT AVAILABLE 
TO PORT 'B’ TO INSURE TIMERS INHIBITED 

C. ISSUE A RELEASE FROM PORT ‘A’. VERIFY DRIVE BECOMES 
AVAILABLE TO PORT 'B' 


D. LOAD HEADS FROM PORT ‘'B’ & VERIFY ‘ATTN-B' AT COMPLETION 


pe £23 0539 999950099395 095955 9950550950950 2 > 0090 099259 220 029 0 2 0 02d | 


TST32: SCOPE 


64S: 


#1,S$TIMES 

PC. SUBCLR 

24 

#STACK, SP 
SUNIT,RKCS2(R5) 
#1,UNITB 

UNI TB, RKCS2(R5) 
#'B,MSG19A 
#RLS, RKCSZ2(R5) 
#SELORV. HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2(R5) 
#0, UNITB 

UNITB, RKCS2(R5) 
#'A,MSG19A 
RSELORV, HCS1 
PC, DOCMD 

117 


#D. DRA, HMRZ 
$4$ 

71 

PC, SUBCLR 
24 


UNLD 

#24, SESCAPE 
#UNLOAD, HCS1 
STMP4, HCS1 
HCS1,RKCS1(R5) 
T10, TEMP 1 


+-D00 1 ITERATION 
;SUB SYSTEM CLEAR 29-SEP-77 


;SETUP FOR PORT B 


RELEASE PORT B 


;00 SELDRV (STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL ORV CMD 


>SETUP FOR PORT A 


DO SELDRYV (STATUS) CMD & GET CONTR ROY 
;NO RKY AFTER SEL DRY CMD 


;SEE IF DRIVE AVAIL ON PORT A 

*BR IF YES 

;PORT A NOT AVAIL AFTER PORT B PLS 
>CERR AFTER SCLR 

>USED FOR VALID HALT 


UNLOAD CMD 


>SETUP TIMEOUT 


SEQ 0132 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE wetseemate 


DZROGA. P11 


033644 
033650 


033652 
033660 
033664 
033672 
033700 
033704 
033706 


033710 
033716 
033724 
033732 
033740 
033746 
033754 
033762 
033766 


033770 
033776 
034004 
034012 
034020 
034026 
034032 


034034 
034042 
O34044 
034046 
034046 


034052 
O34056 


034060 
034066 
034072 
034074 
034102 
034106 
034110 


O34114 


29-SEP-77 


004737 
104073 


012737 
004737 
012737 
112737 
004737 
000401 
104155 


012765 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 
005037 


004737 
104024 


012737 
004737 
104121 
013737 
004737 
104074 
005037 


005037 


09: 55 
044106 


000454 
047204 
000001 
000102 
044172 


100000 
001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


906940 


001176 


045534 


000011 
043372 


001406 
644006 


005276 
00527 


001366 


005464 
056576 


000000 
000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


N05742 


005314 


005354 


JSR 
ERROR 


65S: 
2S: CLR 


CLR 


D ii 
MACY11 30(1046) 29-SEP- 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘A’ 


PC, FATTZ 
73 


#300. . COUNT 
PC, THO 

#1, UNITB 
#'B,MSG19A 
PC, DRAV 

1$ 


155 


#CCLR, RKCS1(R5) 
SUNIT, RKCS2(R5) 
#0, UNITB 

UNI TB, RKCS2(R5) 
#'A,MSG19A 
#RLS. RKCSZ(R5) 
#SELORV, HCS1 
PC, DOCMD 

117 


SUNIT, RKCS2Z(R5) 
#1-UNITB 

UNi TB, RKCSZ(R5) 
#'B.MSG19A 
#SELORV, HCS1 
PC, DOCMD 

117 


#D. DORA, HMR2 
65$ 

71 

SESCAPE 

PC, SUBCLF 
24 
@SRTSPL.HCS1 
PC, DOCMD 
121 

T100, TENP2 
PC. FATTI 

74 

UNLO 


UNLD 


77 10:08 PAGE 133 


+FIND ATTN 
+NO ATTN AFTER UNLD CMO 


D0 5 SEC DELAY 
+ SETUP FOR PORT B 


PORT B AVAIL BEFORE RLS WHEN UNLOADED 
; UNLOAD DID NOT INHIBIT TIMERS 


+ SETUP FOR PORT A 


RELEASE PORT A 


+00 SELDRV (STATUS) CMO & GET CONTR RDY 
;NO RDY AFTER SEL DRV CMD 


> SETUP FOR PORT B 


DO SELORV (STATUS) CMD & GET CONTR RDY 
>NO RKY AFTER SEL ORV CMD 


;SEE IF ORIVE AVAIL ON PORT B 
;BR IF YES 
:PORT B NOT AVAIL AFTER PORT A RLS 


>CERR AFTER SCLP 


;DO START SPINOLE CMD & GET CONTR RDY 
:RDY NOT SET AFTER ST SPIN CMO 


;SETUP TIMEOUT 
>FIND ATTN 
>NOQ ATTN AFTER ST SPIN CMO 


RAR AREA AERA RETA AAA AAA TATRA AREER A ea 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘'B’ 


7 
| THE PREVIOUS TEST 1S REPEATED FOR PORT ‘B' 


/HTEST 33 


| 


SEQ 0133 


UNI BUS 
DZR6GA. 


Pil 


034120 
034122 
034130 
034134 
034136 
034142 
034150 
034156 
034164 
034172 
034200 
034206 
034212 


034214 
034222 
034230 
O3423€ 
034244 
034252 
034256 


034260 
034266 
034270 
034272 
034272 
034276 


034300 
034304 
034312 
034320 
034326 
034334 
034342 
034346 


034350 
034356 
034362 
034370 
034376 
034402 
034404 


034406 
034414 
034422 
034430 
0344 36 
O34444 
034452 
034460 


29-SEP-77 09: 55 


000004 
012737 
004737 
104024 
012706 
013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
00100! 
104071 


004737 
104024 


005237 
012737 
012737 
053737 
013765 
013737 
004737 
104073 


012737 
004737 
012737 
112737 
004737 
000401 
104155 


012765 
013765 
012737 
063765 
112737 
062765 
012737 
004737 


000001 
045534 


001100 
001222 
000000 
005464 
000101 
000010 
000001 
043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


045534 


005276 
O34544 
000007 
001170 
005314 
001400 
044106 


000454 
047204 
000000 
000101 
044172 


100000 
001222 
000001 
005464 
000102 
000010 
000001 
043372 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


001176 
005314 
005314 
000000 
005352 


001366 


005464 
956576 


000000 
000010 
005464 
000010 
056576 
000010 
005314 


RKOG-RKO? DUAL PORT ORIVE ae 


64S: 


E 11 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 134 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT ‘B’ 


ee er en ee 


#1,STIMES +00 1 ITERATION 

—— ;SUB SYSTEM CLEAR 29-SEP-77 

#STACK. SP 

cae + SETUP FOR PORT A 

UNI TB, RKCS2(R5) 

#'A, MSGI9A 

#RLS,.RKCSZ2(RS) ;RELEASE PORT A 

#SELDRV, HCS1 : 

PC, DOCMD ;DO SELORV (STATUS) CMD & GET CONTR ROY 

117 ;NO RDY AFTER SEL ORV CMD 

SUNIT,RKCSZ2(R5) ; SETUP FOR PORT B 

#1,UNITB 

UNITB, RKCS2Z2(R5) 

#'B,MSG19A 

#SELDRV. HCS1 

Pc, DOCMD >DO SELDRV (STATUS) CMD & GET CONTR RDY 

117 +NO RKY AFTER SEL DRV CMD 

#0 DRA, HMRZ SEE IF DRIVE AVAIL ON PORT B 

64S >BR IF YES 

71 PORT B NOT AVAIL AFTER PORT A RLS 

PC, SUBCLR 

24 >CERR AFTER SCLR 

UNLD *USED FOR VALID HALT 

#2%, SESCAPE 

#UNLOAD, HCS1 UNLOAD CMO 

STMP4, HCS1 

HCS1,RKCS1(R5) 

T10, TEMP 1 SETUP TIMEOUT 

PC, FATT2 7>FIND ATTN 

73 >NO ATTN AFTER UNLO CMD 

#300. , COUNT 

PC, TMO DO 5 SEC DELAY 

#0, UNITB >SETUP FOP PORT A 

#'A,MSG19A 

PC, DRAV 

1$ 

155 PORT A AVAIL BEFORE PLS WHEN UNLOADED 
>UNLOAD O10 NCT INHIBIT TIMERS 

aCCLR, RKCS1(R5) 

SUNIT,RKCS2(R5) ; SETUP FOR PORT B 

#1, UNITB 

UNI TB, RKCS2(R5) 

#'B, MSG19A 


@RLS.RKCS2(R5) -;RELEASE PORT B 
#SELDRV, HCS1 
PC, DOCMD DO SELORY (STATUS! CMD & GET CONTR RD? 


SEQ 0134 


i 


UNIBUS 
ODZROGA. 


Pil 
034464 


034466 
034474 
034502 
034510 
034516 
034524 
034530 


034532 
034540 
034542 
O34544 
O34544 


034550 
034554 


034556 
034564 
034570 
034572 
034600 
034604 
034606 


034612 


034616 
034620 


034676 


29-SEP-77 09: 55 


104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


005037 


004737 
104024 


012737 
004737 
104121 


613737 
004737 
104074 


005037 
005037 


000004 
012737 
004737 
104024 
012706 
013765 
012737 
063765 
112737 
062765 
012737 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


001176 
045534 


000011 
043372 


001406 
044006 


005276 
005276 


C00001 
045534 


001100 
001222 
000001 
005464 
000102 
000010 
000001 


000010 
005464 
000010 
056576 
005314 


005342 


005314 


005354 


001174 


000010 
005464 
000010 
056576 
900010 
005314 


RKOG-RKO7? DUAL PORT DRIVE stemapene 


ERROR 


655: 
28: CLR 


CLR 


MACY11 30(1046) 
TEST UNLOAD COMMAND TIMER INHIBIT THRU PORT '‘B' 


117 


F il 
29-SEP-77 





10:08 PAGE 135 SEQ 0135 


+NO ROY AFTER SEL DRV CMD 


ghd a ate SETUP FOR PORT A 


#0, UNIT 


UNI TB, RKCSZ(R5) 


#'A,MSG19A 
#SELDRV, HCS1 
PC, DOCMD 

117 

#D. ORA, HNR2 
655 

71 

SESCAPE 

PC, SUBCLR 

2u 
#SRTSPL,HCS1 
PC, DOCMD 

121 

T190, TEMP2 
PC, FATTI 

74 

UNLD 


UNLD 


+D0C SELORV (STATUS) CMD & GET CONTR RDY 
+NO RKY AFTER SEL ORV CMD 


+SEE IF ORIVE AVAIL ON PORT A 
BR IF YES 
;PORT A NOT AVAIL AFTER PORT B RLS 


+CERR AFTER SCLR 


DO START SPINDLE CMD & GET CONTR RDY 
>RDY NOT SET AFTER ST SPIN CMD 


; SETUP TIMEOUT 
>FIND ATTN 
:NO ATTN AFTER ST SPIN CMO 


OOOO III IOI III 
TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘A’ 


>*TEST 34 
| 
be i 
; a 
sa 
;x A. 
7m 
:% B. 
a 
Pe 
‘8 


VERIFY THAT THE RECAL COMMAND THRU A PORT SEIZES THAT PORT 
FOR AS LONG AS THE RECAL IS IN PROGRESS & RELEASE IS NOT ISSUED. 


ISSUE A RECAL COMMAND FROM CYL 410 THRU PORT ‘A’ 


VERIFY PORT °B' CANNOT SEIZE THE DRIVE UNTIL PORT ‘A’ 
RECEIVES ATTN AND TIMES OUT. THIS INSURES THAT 
THE TIMERS ARE INHIBITED 


MOTI Tiititit iret ti tet itt tisettttitetsttetititittitit its t isi te 
TST34: SCOPE 


#1,STIMES 
PC, SUBCLR 


#STACK, SP 


ny 
= 


SUNIT, RKCS2(R5) 


#1, UNITB 


UNITB, RKCSZ(R5) 


#'B, MSG19A 


#RLS. RKCSZ(R5) 


#SELDRV, HCS1 


>;D0 1 ITERATION 
;SUB SYSTEM CLEAR 29-SEP-77 
+ 29-SEP-77 


>SETUP FOR PORT B 


RELEASE PORT B 
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DZR6GA. P11 29-SEP-77 09: 55 T34 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘A’ 
7059 034704 004737 043372 JSR PC, DOCMD D0 SELDRV (STATUS) CMD & GET CONTR RDY 
hog, 034710 104117 ERROR 117 +NO RDY AFTER SEL ORV CMD 
7062 034712 013765 001222 000010 MOV SUNIT,.RKCS2(R5) ; SETUP FOR PORT A 
7063 034720 012737 OO00000 005464 MOV #0, UNITB 
7064 034726 063765 005464 000019 ADD UNI TB, RKCS2Z(R5) 
7065 €34734 112737 000101 056576 MOVB #'A, MSGI9A 
7066 034742 012737 000001 005314 MOV #SELORV, HCS1 
7067 034750 004737 043372 JSR PC, DOCND +D0 SELORV (STATUS) CMD & GET CONTR RDY 
boy 034754 104117 ERROR 117 +NO RKY AFTER SEL DRV CMD 
; ; 
7070 034756 032737 O00040 005342 BIT #0. DRA, HMR2 ;SEE IF ORIVE AVAIL ON PORT A 
7071 034764 001001 BNE 64S 7BR IF YES 
7072 034766 104071 ERROR 71 PORT A NOT AVAIL AFTER PORT B RLS 
7073 034770 64S. 
7074 034770 004737 045534 JSR PC, SUBCLR 
eon 034774 104024 ERROR 24 >CERR AFTER SCLR 
7077) 034776 012737 O35464 001176 MOV #5%, SESCAPE 
ol 4 035004 013765 012770 000020 MOV LC, RKDC (RS) SEEK TO LAST CYL 
7080 035012 012737 000017 005314 MoV #SEEK, HCS1 
7081 035020 004737 043372 JSR PC, DOCND ;DO SEEK CMD & GET CONTR READY 
oat 035024 104131 ERROR 131 ;NO RDY AFTER SEEK CMD 
7084 035026 013737 001412 005352 MOV TS0000, TEMP 1 *SETUP TIMEOUT 
7085 035034 004737 044106 JSR PC, FATT2 7;FIND ATTN 
7086 O35040 104132 ERROR 132 >NO ATTN AFTER SEEK CMD 
7087 
7088 035042 032737 100000 0057214 BIT #CERR,HCS1 
7089 035050 001401 BEQ 65$ 
ae, 035052 104210 ERROR 210 >CERR AFTER SEEK CMD 
7091 
Aaa O03£054 65$ 
7094 035054 012737 O50340 005404 MoV #<D. DSC!D. ORA'D. SPIN'D. DRDY'D. VW>.E. AQ ;EXPECTED MSG AO 
7095 035062 005037 005406 CLR E. BO EXPECTED MSG BO 
7096 035066 012737 001720 005410 MoV ty SPOK'D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
7097 035074 012737 000001 005412 MoV -E. BI *MSG !0 FOR EXPECTED MSG B1 
7098 035102 005037 005414 , CLR f AZ >EXPECTED MSG AZ 
7099 035106 012737 000002 005416 MoV #2-E. 82 *>MSG 1D FOR EXPECTED MSG BZ 
7100 035114 012737 QOO0003 005422 MOV #3,€. B83 7;MSG 1D FOR EXPECTED MSG B3 
7101 
7102 035122 004737 044274 JSR PC, CHKMSG ; CHECK MSGS AO. BO. Al. Bi 
7103 035126 000000 WORD O'0!0 *& MSGS SPECIFIED HERE 
7104 035130 104161 ERROR 161 >MSG AO ERROR AFTER SEEK CMD 
7105 035132 104162 ERROR 102 >MSH BO ERROR 
7106 035134 104163 ERROR 163 MSG Al ERROR 
7107 035136 104164 ERROR 164 MSG B1 ERROR 
7108 
7109 
7110 035140 012765 100000 000000 MoV ACCLR, RKCSICRS) 
7111 035146 013765 001222 000010 MoV SUNIT,RKCSZ2(R5) ; DRIVER 
7112 035154 063765 005464 000010 ADD UNITB.RKCS2(R5) ;ADD 1 IF ON POPT B 
7113 035162 012737 O0000S 005314 MoV #CLEAR. HCS1 


7114 035170 004737 043372 JSR PC, DOCMD /DC DRIVE CLEAR CMD & GET CONTR POY 


UN! BUS 
DZPR6GA. 


7115 
7116 


Pil 


035174 
035176 
035202 
035204 
035206 


035206 
035214 
035220 
035226 
035234 
035240 
035246 


035254 
035260 
035262 
035264 
035266 
035270 


035272 
035300 
035306 
035314 
035320 
035324 
035332 


035334 
035342 
035350 
035354 
035356 


035360 
035366 
035374 
035402 
035406 
035410 


035412 
035416 
035424 
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104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


012737 
053737 
013765 
013704 
063704 
136465 
001027 


012737 
112737 
004737 
000401 
104177 


012765 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000013 
001170 
005314 
001222 
005464 
005304 


000001 
000102 
044172 


100000 
000000 
000101 
044172 


045146 
029000 


00117. 


005404 


005410 
005412 


005416 
005422 


005314 
005314 
000900 


000017 
005464 


050576 


000000 
005464 
056576 


N05342 


001 See 


005464 
050576 


RKOG-RKO7 DUAL PORT DRIVE ae 


665: 


3$ 


4$ 


53 


ORPRRTRR ARTA RATA RATT RARA TARTAR ATER R ARTA 
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TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘A’ 


ERROR 151 *+NO RDY AFTER ORIVE CLEAR CHO 

- + Neen + TEST FOR ATTN 

ERROR 154 +ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
MOV #<D. DRA!'D. SPIN'D. DROY'D. VV>.E. AQ EXPECTED MSG AO 

CLR E. 80 EXPECTED MSG BO 

MOV #<D. SPOK'!D. CART!D. DOOR!D. BRHM!D. SSP>.£.A1 EXPECTED At 
MOV #1,€.B1 +MSG 1D FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 


+MSG ID FOR EXPECTED MSG 82 
*MSG ID FOR EXPECTED MSG B3 


MOV #2,€.82 
MOV #3,€.B3 


JSR PC, CHKMSG + CHECK MSGS AO, BO, Al. Bi 

.WORD = T.AZ!T.B2!0 +& MSGS SPECIFIED HERE 
ERROR 33 -MSG AO ERROR AFTER DRV CLEAR CMD 
ERROR 34 MSH BO ERROR 

ERROR 35 MSG Al ERROR 

ERROR 36 +MSG Bi ERROR 

MOV #RECAL, HCS1 *RECAL COMMAND 


BIS STMP4, HCS1 

MoV HCS1,RKCS1(R5) 

MOV SUNIT, RY 

ADD UNI TB. RY 

BiTB ATTN(RY), RKASOF +1(R5) ;SEE IF ATTN SET 
BNE 3$ -BR IF YES 


MOV #1,UNITB SETUP FOR PORT B 
MOVB #'B.MSG19A 
JSP PC, DRAV >SEE IF ORV AVAIL 
BR 2$ RETURN HERE !F NA 
ERROR 177 >PORT B AVAIL 
>RECAL DID NOT INHIBIT TIMERS 
MoV @CCLR.RKCSICRS) 
MoV #0, UNITB 
Move #'A,MSG19A » SETUP PORT A 
JSR PC, DRAV SEE 'F ORV AVAIL 
ERROR 203 >PORT A NOT REMAIN AVAIL DURING RECAL 
BR 1$ 
JSR PC. GSTAT 
BIT #0. PIP. HMR? »-SEE IF ANY MOTION 
BEQ 4§ *BR IF NO 
ERROR 72 ;PIP SET AFTER ATTN RECB FROM RECAL 
MoV #120. , COUNT 
JSR PC, THO 00 2 SEC DLY 
MoV #1, UNITB >SETUP FOR PORT B 


MOVB #'B. MSG19A 
JSR PC. ORAV *SEE IF ORV NOW AVAIL 
ERROR 45 PORT B NOT AVAIL AFTER THO 


CLR SESCAPE 


WN BUS 
DIPeGA 
vue’ 


7.7. 
«he 


Pil 


035556 
035562 


035564 
035572 
035600 
035606 


035650 
035656 


035664 
035672 
035676 


035700 
035706 
035712 


035714 
035722 
035724 


035726 


035726 
035734 
035740 
035746 
035754 
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104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


012737 
015765 


012737 
004737 
104131 


013737 
004737 
104132 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 


000001 
045534 


043372 


001222 
000001 
005464 
000102 
000001 
043372 


000040 


045534 


036336 
012770 


000017 
043372 


001412 
044106 


100000 


050340 
005406 
001720 
000001 
005414 


001174 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005714 


005542 


001176 
000020 


005314 


005352 


NO5314 


005404 


005410 
005412 


Re OG-PKO7 DUAL PORT ORIVE eget 
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TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘B' 


+¥TEST 35 
; THE PREVIOUS TEST IS REPEATED FOR PORT '‘B' 
PEtitittitittittitttittiitiittiitttttsssitittttitsssstiittssssee: 
TST 35: OPE 


’ 
:% 


04S. 


o5$. 


TEST RECAL COMMAND TIMER INHIBIT THRU PORT 'B' 


#1, STIMES +00 1 ITERATION 

PC, SUBCLR ; SUBSYSTEM CLEAR 29-SEP-77 

24 + 29-SEP-77 

STACK. SP 

SUNIT.RKCSZ2(R5) ;SETUP FOR PORT A 

#0. UNITB 

UNI TB, RKCSZ(R5) 

#'A,MSG19A 

@RLS,-RKCS2(R5) ;RELEASE PORT A 

#SELORV, HCS1 

PC, DOCND >DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 +NO RDY AFTER SEL ORV CMD 
SUNIT,RKCS2(RS) - SETUP FOR PORT B 

#1,UNITB 

UNI TB. RKCSZ(R5) 

#'B.MSG19A 

#SELORV, HCS1 

PC, DOCMND :DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 »NO RKY AFTER SEL DRV CMD 

#D. DRA. HMR2 +SEE IF DRIVE AVAIL ON PORT B 
64S -BR IF YES 

71 ;PORT B NOT AVAIL AFTER PORT A RLS 
PC, SUBCLR 

24 /CERR AFTER SCLR 

#5$, SESCAPE 

LC, RKDOC (PS) *SEEK TO LAST CYL 

#SEEK, HCS1 

PC, DOCND DO SEEK CMO & GET CONTR READY 
131 :NO RDY AFTER SEEK CMD 

TSCO00. TEMP1 ; SETUP TIMEOUT 

PC, FATTZ 7>FIND ATTN 

132 *NO ATTN AFTER SEEK CMD 

#CERR, HCS1 

638 

210 *CERR AFTER SEEK CMD 


#<D. DSC'D. DRA'D. SPIN'D. DRDY'D V¥>.E.AQ EXPECTED MSG AD 

E. B60 EXPECTED MSG 60 

ty SPOK'D. CART'D. DOOR'D. BRHM'D. SSP>.E. Al -EXPECTED At 
1-€.B1 *MSG ID FOR EXPECTED MSG B1 

4 "ae ‘EXPECTED MSG AZ 


SEQ 0138 


UN|BUS 
DZR6GA. 


Pil 


035760 
035766 


035774 
036000 
036002 
036004 
036006 
036010 


036012 
036020 
036026 
036034 
036042 
036046 
036050 
036054 
036056 
036060 


036060 
036066 
036072 
036100 
036106 
036112 
036120 


036126 
036132 
036134 
036136 
036140 
036142 


036144 
036152 
036160 


036232 
036240 
036246 
036254 
036260 
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012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


012765 
012765 
063765 
012737 
004737 
104151 
004737 
000401 
104154 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104033 
104034 
104035 
104036 


012737 
053737 
013765 
013704 
063704 
136465 
001027 


012737 
112737 
004737 
000401 
104177 


012765 
012737 
112737 
004737 
104203 


000002 
000003 


044274 


100000 
001222 
005464 
000005 
043372 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


000013 
001170 
005314 
001222 
005464 
005304 


000000 
000101 
044172 


100000 
000001 
000102 
044172 


005416 
005422 


000000 
000010 
000010 
005314 


005404 


005410 
005412 


005416 
005422 


005314 
005314 
000000 


90001? 
005464 
056576 


000000 
005464 
056576 


RKOG-RKO7? DUAL PORT DRIVE DIAGNOSTIC 
55 T35 
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TEST RECAL COMMAND TIMER INHIBIT THRU PORT 'B' 


MOV #2,€.B2 *+MSG 10 FOR EXPECTED MSG B82 
MOV #3,€.B3 /MSG 1D FOR EXPECTED MSG B3 


JSR PC, CHKMSG *CHECK MSGS AO. BO, Al. Bi 


.WORD O'!0!0 +& MSGS SPECIFIED HERE 

ERROR 161 +MSG AO ERROR AFTER SEEK CHD 
ERROR 162 MSH BO ERROR 

ERROR 163 MSG Al ERROR 

ERROR 164 MSG Bi ERROR 


MOV @CCLR. RKCS1i(RS) 
MOV SUNIT.RKCS2(R5) ; ORIVER 
ADD UNITB-RKCS2(R5) ;ADD 1 IF ON PORT B 


MOV #CLEAR,. HCS1 
JSR PC, DOCMD DO ORIVE CLEAR CMD & GET CONTR RDY 


ERROR 151 NO RDY AFTER ORiVE CLEAR CMD 
+ PC, TSTATN ; TEST FOR ATTN 
668 
ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


MoV #<D. DRA'D. SPIN'D. DROY'D. V¥>.E. AO ;EXPECTED MSG AD 


CLR E. 30 EXPECTED MSG BO 

MoV #<D. SPOK'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
MOV #1,€. B81 ;MSG 10 FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 


;MSG ID FOR EXPECTED MSG 82 
;MSG 1D FOR EXPECTED MSG B3 


;CHECK MSGS AO, BO. Al, Bi 
+& MSGS SPECIFIED HERE 


JSR PC, CHKMSG 
-WORD T.AZ!'T.B2'0 


ERROR 33 *MSG AO ERROR AFTER DRV CLEAR CMD 
ERROR 34 *MSH BO ERROR 

ERROR 35 7MSG Al ERROR 

ERROR 36 -MSG B1 ERROR 

MoV #RECAL, HCS1 *RECAL COMMAND 


BIS STMP4. HCS1 

MOV HCS1,.RKCS1(R5) 

MoV SUNIT. RY 

ADD UNITB. RY 

BiTB ATTNCR4Y),RKASOF+1(R5) ;SEE IF ATTN SET 
BNE 3$ +BR IF YES 


MoV #0, UNITB SETUP FOR PORT A 
MOVB #'A, MSG1I9A 
JSR PC, DRAV +SEE IF ORV AVAIL 
BR 2$ RETURN HERE IF NO 
ERROR 177 PORT A AVAIL 

*>RECAL DID NOT iNHIBIT TIMEPS 
MOV ACCLR, RKCSI(RS) 


MOV #1, UNITB 

MOVB ° #'B. MSG19A ;SETUP PORT B 

JSR PC, ORAV ;SEE IF ORV AVAIL 

ERROP 203 :PORT 3 NOT REMAIN AVAIL DURING RECAL 


SEQ 0139 
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OZRO6GA. P11 29-SEP-77 09: 55 T35 TEST RECAL COMMAND TIMER INHIBIT THRU PORT ‘B' 

a 036262 000745 BR 1$ 

7285 036264 004737 045146 33: JSR PC, GSTAT 

7286 036270 032737 020000 005342 BIT #0. PIP, HMRZ ;SEE IF ANY MOTION 

7287 036276 001401 BEQ 4g ;BR IF NO 

7288 036300 104072 ERROR 72 ;PIP SET AFTER ATTN RECA FROM RECAL 

7289 036302 012737 000170 001366 43: MoV #120. , COUNT 

7290 036310 004737 047204 JSR PC, THO ;0C 2 SEC OLY 

7291 036314 012737 OO0000 005464 MOV #0, UNITB ;SETUP FOR PORT A 

7292 036322 112737 000101 056576 MOVB #'A,MSG19A 

7293 036330 004737 044172 JSR PC, DRAV ;SEE IF ORV NOW AVAIL 

kof 036334 104045 ERROR 4s ;PORT A NOT AVAIL AFTER TNO 

7296 036336 005037 001176 5S: CLR SESCAPE 

2298 

7299 5 RAKR AKA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 

fan oo 36 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 

7302 io THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO7). TRACK 2 CAN BE READ. 

7303 7x THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE 

7304 re FACTORY DURING MANF. ALL BAD SECTOR INFO (BSE) WILL BE STORED 

o 4. AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 

7307 ot SECTORS 0,2.4,.6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC 

hod * SECTORS 10,12, 14. 16.18.20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOFTWARE DETECTED 

7310 ot 1F BSC INFO CANNOT BE READ. OR IF AFTER READING THE BSE INFO 

7311 3 1T 1S DETERMINED THAT AN ALIGNMENT CARTRIDGE 1S USED. 

7312 . A MESSAGE WILL BE TYPED INDICATING THAT ALL 

7313 a FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 

eee a THIS 1S DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITING 
1 38 

£143 x THE PACK SERIAL # 1S TYPED IN OCTAL & FOR THE FIRST PASS ONLY 
1 ;x 

7318 5 AAKAAAAA AKER AAA ARATE 

7319 036342 oO00004 TST36: SCOPE 

7320 036344 012737 O00001 9001174 MoV #1,S$TIMES ;;D00 1 ITERATION 

eaek 036352 012706 001100 MoV #STACK. SP ; RESTORE STK PTR 

7323 036356 004737 045534 JSR PC, SUBCLR 

fo 036362 104024 ERROR 24 ;CERR AFTER SCLP 

> 

7326 036364 013765 001222 000010 MOV SUNIT.RKCS2(R5) >; SETUP FOR PORT B 

7327 036372 012737 000001 005464 MOV #1. UNITB 

7328 036400 063765 005464 9000010 ADD UNI TB, RKCS2(R5) 

7329 036406 112737 000102 056576 Move #'B.MSG19A 

7330 036414 062765 000010 000010 ADD @RLS.RKCS2Z(R5) ;RELEASE PORT B 

7331 036422 012737 000001 005314 MOV #SELORV. HCS1 

7332 036430 004737 043372 JSR PC, DOCMD ;D0 SELORV (STATUS) CMD & GET CONTR RDY 

7333 036434 104117 ERROR 117 ;NO RDY AFTER SEL ORV CHD 

7334 

7335 036436 013765 001222 000010 MOV SUNIT.RKCS2(R5) ; SETUP FOR PORT A 

7336 036444 012737 O00000 005464 MoV #0, UNITB 

7337 036452 063765 005464 000010 ADD UNITB, RKCS2(R5) 


7338 036460 112737 000101 56576 MOVB &'A, MSG19A 


UNIBUS 
DZR6GA. 


Pil 


036466 
036474 
036500 


036502 
036510 
036512 
036514 


036514 
036520 


036522 
036526 


036532 
036540 
036546 
036554 


036562 
036570 
036576 
036604 
036612 
036620 
036624 
036626 
036632 
036640 
036642 


036644 
036652 
036656 
036664 
036672 
036676 
036704 


036712 
036716 
036720 
036722 
036724 
036726 


036730 
036734 


036736 
036742 
036750 
036752 
036756 
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012737 
004737 
104117 


032737 
001001 
104071 


004737 
104024 


00£037 
005037 


012737 
013765 
012737 
013765 


013765 
012765 
013765 
063765 
012737 
004737 
104226 
004737 
032737 
001476 
104227 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000090 
104054 
104026 
104056 
104030 


004737 
104024 


005237 
023727 
001007 
005737 
001002 


000001 
043372 


000040 


045534 


005354 
005356 


002276 
005360 
001000 
005362 


012770 
177400 
001222 
005464 
000071 
043430 


045146 
100000 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


045534 


005354 
005354 


005356 


005314 


005342 


005360 
000004 
005362 
000006 


090020 
900002 
000010 


000010 
005314 


005214 


005404 


005410 
005412 


005416 
005422 


000005 
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READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 


MOV #SELDORV, HCS1 


JSR PC, DOCHD +00 SELDRV (STATUS) CMD : GET CONTR RDY 
ERROR 117 +NO RKY AFTER SEL ORV CMD 

BIT #0. DORA, HNRZ +SEE IF DRIVE AVAIL ON PORT A 

BNE 64S *BR IF YES 

ERROR 71 PORT A NOT AVAIL AFTER PORT B RLS 

JSR PC, SUBCLR 

ERROR 24 +CERR AFTER SCLR 

CLR TEMP2 ;SECTOR CTR 

CLR TEMPS +0=22 SECTOR HARDWARE DETECTED TABLE 


4 _— SOFTWARE DETECTED TABLE 
+ 2=DON 

MoV #BSE 22H, TEMPY ; STORE 22 SECTOR HARDWARE BSE ADDR. 
MOV TEMPY, RKBACRS) 

MOV #1000, TEMPS > TRACK 2, SECTOR 0 

MOV TEMPS, RKDACRS) 


MOV LC, RKDC (RS) LAST CYL 

MOV #-256. ,-RKWC(RS) ;LOAD WORD CT 

MOV SUNIT, RKCS2Z2(R5) 

ADD UNi TB, RKCSZ(R5) 

MOV #RODATA, HCS1 

JSR PC, DATCND DO READ DATA CMD & GET CONTR READY 
ERROR 226 ;NO RDY AFTER READ DATA CMO 

JSR PC, GSTAT GET FRESH DATA 

BIT a 


BEQ 

ERROR 227 ;CERR AFTER READ DATA CMD 

MoV #<D DRA!D. SPIN!D. DRDY'!D. V¥>.E. AQ -;EXPECTED MSG AD 

CLR E. BO EXPECTED MSG BO 

MOV #<D. SPOK!'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
MOV #1,€. B81 7MSG ID FOR EXPECTED MSG B1 

CLR E. AZ ;EXPECTED MSG AZ 


+MSG 10 FOR EXPECTED MSG 82 
*>MSG 1D FOR EXPECTED MSG B3 


MOV #2,€.B2 
MOV #3,€.B3 


JSR PC, CHKMSG CHECK MSGS AO. BO. Al, Bi 
.WORD 0'0!0 *& MSGS SPECIFIED HERE 
ERROR 54 +MSG AO ERROR AFTER READ DATA CMD 
ERROR 26 +MSH BO ERROR 

ERROR 56 +MSG Al ERROR 

ERROR 30 MSG B1 ERROR 

JSR PC, SUBCLR : 

ERROR 24 ;CERR AFTER SUBCLR 

INC TEMP2 

CMP TEMP 2. &5 READ ALL 5S SECTORS? 

BNE 5$ 

TST TEMPS 

BNE 2% 


SEQ 0141 


7449 
7450 


6GA. 


Pil 


036760 
036762 
036764 
036766 


036770 
036776 
037004 
037012 


037014 
037020 
037022 
037026 
037030 
037032 
037036 


037040 
037044 
037052 
037054 
037060 
037066 
037074 
037102 
037110 


037114 
037120 
037122 
037126 
037132 
037136 
037142 
037146 


037152 
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104233 
000414 
104230 
000412 


013765 
062737 
013765 
000663 


005237 
000454 
00&737 
001404 
104235 
005237 
000426 


005237 
023727 
001020 
005037 
012737 
013765 
012737 
013765 
000137 


005737 
001014 
104401 
012746 
004737 
004737 
104401 
104401 


000004 


005360 
000002 
005362 


001452 
002304 


001452 


005356 
005356 


005354 
003276 
005360 
001012 
005362 
036562 


001216 


056537 
002276 
053660 
054230 
001205 
001205 


037154 012737 000001 


000004 
005362 
000006 


000001 


005360 
000004 
005362 
000006 


001174 


UNIBUS RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC 
DZR T36 


28: 


5$: 


35: 
8s: 


93: 


108: 


MACY11 30(1046) 


M11 
29-SEP-77 


10:08 PAGE 


142 
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 


233 

3$ 

230 

3$ 

TEMP4, RKBACRS) 
#2, TEMPS 
lesions 
1 


BSERR 
TST37 
BSEZ2H+6 
9$ 


235 
BSERR 
10% 


TEMPS 

TEMPS. #1 

10% 

TEMP2 

#BSE22S, TEMPY 
TEMP4, RKBACRS) 
#1012, TEMPS 
pe esac 
1 


SPASS 

TST37 

- MSGi? 

#BSE 22H. -(SP) 
PC, $0B20 

PC, SSUPRS 

, SCRLF 

, SCRLF 


+ CANT READ SECTORS 0, 2.4,6.8 
;CANT READ SECTORS 10, 12, 14, 16, 18, 20 


+RESTORE TABLE ADOR 
+SETUP TO READ 2 SECTORS FROM LAST 


+SET BSE FLAG 

++GO TO NEXT TEST 

+ TEST CARTRIDGE TYPE 
BRANCH IF DATA CARTRIDGE 
+ALIGNMENT CARTRIDGE USED 
SET BSE ERROR FLAG 


*+STORE 22 SECTOR SOFTWARE BSE ADOR 
+ TRACK 2, SECTOR 12 

; REPEAT 

+;GO TO NEXT TST IF NOT 1‘°ST PASS 
+CART SERIAL & 


i; CONVERT DBL BINARY WORD TO OCTAL 
TYPE SERIAL & 


j 2 MEXR AAAAA AAA AAA AA AAA A AAA AAA AA AAA AAA AAA AAA ARATE 
;4aTEST 37 


VERIFY UNIQUE DATA CAN BE WRITTEN THRU EITHER PORT & READ 
BACK CORRECTLY THRU BOTH PORTS 


we Be We Be 


a 


* @& Ob Dt Bt FE PE DE DE DE FE FE 3G DE 


—te ee 


1ST37: 


A. ALL O'S ARE WRITTEN THRU PORT 
TRACK O & VERIFIED BY READING 


B. ALL 1°S ARE WRITTEN THRU PORT 
TRACK O & VERIFIED BY READING 


C. THE PROGRAM CHECKS THAT CYL 0 
BY READING & VERIFING ALL O'S 


SERKAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA EAA EAE 
SCOPE 


MOV 


DATA TESTS 


#1, STIMES 


‘A’ ON CYL O. SECTOR O, 
BACK THRU BOTH PORTS. 


"B' ON CYL 10. SECTOR 0, 
BACK THRU BOTH PORTS 


WAS NOT OVERWRITTEN 
THR PORT ‘B'. 


+;D0 1 ITERATION 


SEQ 0142 


_ ie 
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HS 037162 012706 001100 Nov #STACK, SP 
7453 037166 013765 001222 000010 Mov SUNIT,RKCSZ2(RS) ;SETUP FOR PORT B 

7454 037174 012737 000001 O05464 MOV #1, UNITB 

7455 037202 063765 005464 000010 ROD UNI TB. RKCS2(R5) P 
7456 037210 112737 000102 056576 MOVB &'B, MSG19A 

7457? 037216 062765 000010 000010 ADD #RLS,RKCSZ(RS) ; RELEASE PORT 8 

7458 037224 012737 000001 005314 MOV #SELORV, HCS1 

7459 037232 004737 043372 JSR PC, DOCND ;D0 SELDRV (STATUS) CMD & GET CONTR RDY 
7460 037236 104117 ERROR 117 ;NO RDY AFTER SEL ORV CMD 

7462 037240 013765 001222 000010 MoV SUNIT.RKCSZ(R5) : SETUP FOR PORT A 

7463 037246 012737 O00000 oo5u6E4 MOV #0, UNI TB 

7464 037254 063765 005464 000010 ADD UNI TB, RKCS2(R5) 

7465 0237262 112737 000101 056576 MOVB = #'A. MSG19A 

7466 037270 012737 000001 005314 MOV #SELORV. HCS1 

7467 037276 004737 043372 JSR PC, DOCMD ;D0 SELORV (STATUS) CMD & GET CONTR RDY 
7468 037302 104117 ERROR 117 ;NO RKY AFTER SEL ORV CMO 

4 

7470 037304 032737 O00040 005342 BIT #D. DRA. HMR2 ‘SEE iF DRIVE AVAIL ON PORT A 

7471 037312 001001 BNE 645 ;BR IF YES 

7472 037314 104971 ERROR 71 PORT. A NOT AVAIL AFTER PORT B RLS 
7473 037316 64S: 

7474 037316 004737 045534 JSR PC. LoBCLR 

7475 037322 104024 ERROR 24 ;CERR AFTER SCLR 

4 

7477? 037324 005037 001374 CLR SECTOR 

7478 037330 005637 001360 CLR CYLADD 

7479 037334 012737 001434 001436 MoV #DATAD. DATAD1 ;HOLD DATA 

7480 037342 013765 901374 O00C06 1%: Mov SECTOR, RKDACRS) ; SETUP TO WRITE 

7481 037350 013765 001436 000004 Moy DATAO1,RKBA(RS) ; SETUP DATA 

7482 037356 013765 001360 00920 MoV CYLADD, RKDC(RS) ; SETUP CYLINDER 

7483 037364 052765 000020 000010 BIS #BAI,RKCS2\P5) 
rus 037372 012765 177400 000002 MOV #-256. -RKWC(RS) 

4 
7486 037400 012737 000023 005314 MoV #<WROATA>, HCS1 

748? 037406 004737 043430 JSR PC, DATCMD :00 DATA X FOR CMO & GET CONTR RDY 
748S 037412 104011 ERROR 11 ;NO ROY AFTER WRITE DATA CMO 

7489 037414 004737 O4S146 ISR PC, GSTAT ;GET FRESH STATUS 

7490 037420 032737 100000 005314 BIT #CERR, HCS1 

709i 037426 001465 BEQ 63$ :BR IF NO ERRORS 

749 
7493 037430 032737 000200 905330 BiT #BSE, HER ;SEE IF BAD SECTOR FLAG 

7494 037436 001421 BEQ 668 ;BR IF NO 

7495 037440 004737 047002 ISR PC, TRUERR ;ELSE SEE IF SECTOR LISTED IN BSE TABLE 
749 037444 GO04SS BR 675 ;RETURN HERE IF NO 

749? . 
7498 037446 005237 001374 INC SECTOR ;RETURN HERE IF YES 

7499 037452 023727 901374 o0c012 CMP SECTOR, #10. :ARE 10 CONSEC. SECTORS BAD 

7500 037460 001003 BNE 65$ :BR IF NO 

7501 037462 104046 ERROR 46 ;ABORTING TEST DETECTED 10 BAD SECTORS 
7502 027464 000137 40246 JMP 7$ >BYPASS TEST 

7503 037470 012765 100000 00000 65% Mov @CCLR.RKCSI1PS) ; TRY ANOTHER SECTOR 

7504 037476 006137 037342 JMP 18 


7505 037502 104012 eos EPPOR 12 CEPR WITH WRITE DATA CMO 





B 12 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 144 SEQ 0144 
DZROGA. P11 29-SEP-77 09: 55 13? DATA TESTS 


7507 037504 012737 010340 005404 MOV #<D. DRA!D. SPIN!D. DROY!D. VWV>.E.AO EXPECTED MSG AD 
7508 037512 005037 005406 CLR E. 80 ;EXPECTED MSG 80 

7509 037516 012737 001720 005410 MOV #<D. SPOK'D. CART! 0. DOOR!D. BRHM!D. SSP>,E.A1 -;EXPECTED Al 
7510 037524 012737 000001 005412 MOV #1,€. B81 MSG _ ID FOR EXPECTED MSG B1 

7511 037532 005037 005414 CLR E. a2 S EXPECTED MSG AZ 

7512 037536 012737 000002 005416 MOV #2,€. B2 ;MSG 1D FOR EXPECTED MSG 82 

4 3 037544 012737 000003 005422 MOV #3,€.B3 ;MSG 1D FOR EXPECTED MSG B3 

7515 037552 004737 044274 JSR PC. CHKNSG CHECK MSGS AO. BO. Al. Bi 

7516 037556 000003 .WORD T.AZ!T.B2!0 +& MSGS SPECIFIED HERE 
7517 037560 104052 ERROR 52 +MSG AO ERROR AFTER WRITE DATA CMD 
7518 037562 104023 ERROR 23 +MSH BO ERROR 

7519 037564 104053 ERROR 53 +MSG Ai ERROR 

7520 0375¢6 104025 ERROR 25 MSG B1 ERROR 

7521 037570 104401 056625 TYPE -MSG21 ;ABORTING BALANCE OF TESTS 

7522 037574 000137 042644 JMP SEOP 

7523 037600 104043 673: ERROR 43 +BAD SECTOR NOT LISTED IN TABLE 
i. 037602 683: 

7526 037602 012737 010340 005404 MOV #<0. DRA!D. SPIN!D. DROY!'D. VV¥>.E.AO -;EXPECTED MSG AO 
7527 037610 005037 005406 CLR E. 80 EXPECTED MSG BO 

7528 037614 012737 001720 005410 MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 ;EXPECTED Al 
7529 037622 012737 000001 005412 MoV #1,€. 61 ;MSG 1D FOR EXPECTED MSG B1 

7530 037630 005037 005414 CLR E. AZ EXPECTED MSG AZ 

7531 037634 012737 O00002 005416 MOV #2,€.B2 ;MSG 10 FOR EXPECTED MSG B2 

ate 037642 012737 000003 005422 MOV #3,€.B3 +MSG 1D FOR EXPECTED MSG B3 

7534 037650 004737 044274 JSR PC, CHKMSG ;CHECK MSGS AQ, BO. Al. B1 

7535 037654 000003 .WORD = T.AZ2!T.B2!0 +& MSGS SPECIFIED HERE 
7536 037656 104052 ERROR 52 >MSG AO ERROR AFTER WRITE DATA CMD 
7537 037660 104023 ERROR 23 +MSH BO ERROR 

7538 037662 104053 ERROR 53 +MSG Al ERROR 

7539 037664 104025 ERROR 25 7MSG B1 ERROR 

7540 037666 005000 CLR RO >CLEAR TO DO PORT A FIRST 

7541 

7542 037670 005700 2: TST RO +SEE IF DOING PORT ‘A’ 

7543 037672 001056 BNE 3$ 7BR IF NO 

7544 037674 013765 001222 900010 MoV SUNIT,RKCS2(R5) ; SETUP FOR PORT B 

7545 037702 012737 000001 005464 MOV #1, UNITB 

7546 037710 063765 005464 000010 ADD UNI TB, RKCS2(R5) 

7547 037716 112737 000102 056576 MOVB #'B,MSG19A 

7548 037724 062765 000010 000010 ADD @RLS,RKCSZ2(R5) {RELEASE PORT B 

7549 037732 012737 000001 905314 MoV #SELORV, HCS1 

7550 037740 004737 043372 JSR PC, DOCND ;DO SELDRV (STATUS) CMD & GET CONTR RDY 
7551 037744 104117 ERROR 117 *NO RDY AFTER SEL DRY CMD 

7552 

7553 037746 013765 001222 000010 Mov SUNIT,RKCSZ2(R5) > SETUP FOR PORT A 

7554 037754 012737 OO00000 005464 MOV #0. UNITB 

7555 037762 063765 005464 000010 ADD UNITB, RKCSZ2(R5) 

7556 037770 112737 000101 056576 MOVB #'A, MSG19A 

7557 037776 012737 000001 005314 MOV #SELORV. HCS1 

7558 040004 004737 043372 JSR PC. DOCMD -D0 SELORV (STATUS) CMD & GET CONTR RDY 
7559 040010 104117 ERROR 117 7NO RKY AFTER SEL ORV CHD 

7560 

7561 040012 032737 O00040 005342 BIT #0. DRA. HNR2 *SEE IF DRIVE AVAIL ON PORT A 
7562 040020 001001 BNE 69S :BP IF YES 
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7563 040022 104071 ERROR 71 ;PORT A NOT AVAIL AFTER PORT B RLS 
7564 040024 69S: 
waek 040024 000137 040246 JMP 7$ +GO & WRITE CHECK THRU PORT ‘A’ 
7567 040030 020027 000001 35: CMP RO. #1 +SEE IF DOING PORT ‘B' 
7568 040034 001056 BNE 4§ ; IF NO 
7569 040036 013765 001222 000010 MoV SUNIT,RKCSZ2(RS) ; SETUP FOR PORT A 
7570 O40044 012737 O00000 005464 MoV #0, UNITB 
7571 040052 063765 005464 000010 ADD oye RKCS2(R5) 
7572 +O40060 112737 000101 056576 MOvVB #'A, NSG19A 
7573 040066 062765 000010 000010 ADD @RLS.RKCSZ2(RS) {RELEASE PORT A 
7574 040074 012737 000001 005314 MoV #SELORV. HCS1 
7575 040102 004737 043372 JSR PC. DOCND +00 SELORV (STATUS) CMD & GET CONTR RDY 
a oh 040106 104117 ERROR 117 +NO ROY AFTER SEL DRV CMD 
7578 040110 013765 001222 000010 MoV SUNIT,RKCSZ2(R5) ; SETUP FOR PORT B 
7579 040116 012737 O00001 005464 MOV #1, UNITB 
7580 040124 063765 005464 000010 ADD UNITB, IRKCS2(RS) 
7581 040132 112737 000102 056576 MOVB #'B,.MSG19A 
7582 040140 012737 O00C01 005314 MOV #SELDRV, HCS1 
7583 040146 CO4737 043372 JSR PC, DOCND +DO0 SELORV (STATUS) CMD & GET CONTR RDY 
a al O04G152 104117 ERROR 117 +NO RKY AFTER SEL ORV CMD 
7586 040154 032737 O00040 905342 BIT #0 DRA, HMR2 +SEE IF DRIVE AVAIL ON PORT B 
7587 040162 001001 BNE 70% *BR IF YES 
7588 040164 104071 ERROR 71 +PORT B NOT AVAIL AFTER PORT A RLS 
7589 040166 708: 
7590 040166 000137 O4024e JMP 7$ >GO WRITE CHECK THRU PORT 'B' 
7591 
7592 040172 026027 000002 4S: CMP RO, #2 >SEE IF DID WRT CHK THRU PORT A & B 
7593 040176 001402 BEQ 5$ BR IF YES 
Ae 040200 000137 040562 JMP 8$ sELSE RO=3, EXIT TEST 
7596 040204 023727 001436 001434 55%: CMP DATAD1,#DATAO ;SEE IF JUST WROTE O'S ON CYL O 
7597 040212 001010 BNE 6$ 7>BR IF NO 
7598 040214 012737 000012 901360 MoV #10. .CYLADD ;ELSE WRITE 1°S ON CYL 10 
7599 040222 012737 001440 001436 MOV #DATA1, DATADI 
or 040230 000137 037342 JMP 1$ GO DO IT 
7601 
7602 040234 005037 001360 6S. CLR CYLADD >RECHY CYL 0 FOR O'S 
Ares 040240 012737 001434 001436 MoV #DATAO, DATA! 
604 
7605 040246 052765 000020 900010 7%: BIS #BAI,RKCSZ2(R5) ;SETUP TO WRITE CHECK 
7606 040254 013765 001436 000004 MoV DATAO1, RKBACRS) 
7607 040262 013765 001360 000020 MOV CYLADOD. RKOC (RS) 
7608 040270 012765 177400 900002 MoV #-256. ,RKWC(RS) 
7609 040276 013765 001374 000006 MoV ScCTOR, RKDACRS) 
7610 040304 013737 001374 001370 MOV SECTOR. SEC COPY FOR FUTURE USE 
7611 
7612 040312 012737 000031 005314 MOV # <WRTCHK>, HCS1 
7613 040320 004737 043430 JSR PC, DATCMD DO DATA X FOR CMD & GET CONTR RDY 
7614 O40324 104015 ERROR 15 >NO RDY AFTER WRITE CHECK CMD 
7615 040326 004737 045146 JSR PC, GSTAT *GET FRESH STATUS 
7616 040332 032737 100000 005314 BIT #CERR, HCS1 
7617 O40340 001453 BEQ 72% 
7618 O40342 032737 O40000 DO05316 BIT #WCE, HCS2 >SEE IF WRITE CHECR EPROP 
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040350 001410 BEQ 71$ 
040352 016537 000024 001414 MOV RKOB (RS), WO1 ;ACTUAL WORD FOR PRINTOUT 
040360 013737 O01434 001416 MOV DATAD. WOZ + EXPECTED WORD FOR TYPEOUT 
040366 104016 ERROR 16 WCE AFTER WRITE CMC 
040370 000437 BR 723 
040372 104022 715: ERROR 22 >CERR AFTER WRITE CHECK CMD 
040374 012737 010340 005404 MOV #<D. DRA'D. SPIN'D. ORDY'D. VV>.E. . +EXPECTED MSG AD 
040402 005037 005406 CLR E. BO + EXPECTED MSG B 
040406 012737 001720 005410 MOV #<D. SPOK'!D. CART !D. DOOR 'D. onnel!D. SSP>.E.A1 ;EXPECTED Al 
040414 012737 OO00001 005412 MOV #1,€. 81 -MSG 10 FOR EXPECTED MSG B1 
040422 OO&037 005414 CLR E.A2 > EXPECTED MSG AZ 
040426 012737 O00002 005416 MOV #2,E.B2 +MSG 10 FOR EXPECTED MSG B2 
O40434 012737 OOO003 005422 MOV #3,€.B3 +MSG IO FOR EXPECTED MSG B3 
O4O442 004737 044274 JSR PC, CHKMSG > CHECK MSGS AO. BO. Al. Bi 
040446 O00003 . WORD T.AZ!'T B2'0 7& MSGS SPECIFIED HERE 
040450 104057 ERROR 57 +MSG AO ERROR AFTER WRITE CHECK CMD 
040452 104031 ERROR 31 +MSH BO ERROR 
040454 104060 ERROR 60 >MSG Al ERROR 
040456 104032 ERROR 32 >MSG B1 ERROR 
040460 104401 056625 TYPE -MSG21 ;ABORTING BALANCE OF TESTS 
O4O464 000137 O42644 JMP SEOP 
040470 72$ 
040470 012737 010340 005404 MOV #<D. DRA'D. SPIN!D. ORDY'D. VV>.E. - > EXPECTED MSG AD 
040476 005037 005406 CLR €. 80 > EXPECTED MSG B 
040502 012737 001720 005410 MoV #<D. SPOK !D. CART !D. DOOR 'D. BRHM!D. OssP>. E.A1 ;EXPECTED Al 
040510 012737 000001 005412 MOV #1-E.B1 +MSG 10 FOR EXPECTED MSG B1 
040516 005037 005414 CLR E. A2 > EXPECTED MSG AZ 
040522 012737 OO00002 005416 MOV #2-E. B2 >;MSG ID FOR EXPECTED MSG B2 
040530 012737 900003 005422 MOV #3-E.B3 ;MSG 1D FOR EXPECTED MSG B3 
040536 004737 044274 JSR PC, CHKMSG >CHECK MSGS AD. BO. Al, Bi 
040542 000003 . WORD T.A2'T. B2'0 >& MSGS SPECIFIED HERE 
040544 104057 ERROR 57 >MSG AO ERROR AFTER WRITE CHECK CMD 
040546 104031 ERROR 31 >MSH BO ERROR 
040550 104060 ERROR 60 >MSG Al ERROR 
040552 104032 ERROR 2 >MSG B1 ERROR 
040554 005290 INC RO 
040556 000137 037670 JMP 2$ 
040562 8$ 
ie 20903059 05000050090000005000000000000000000000000000000000008 0) 
;ATEST 4O ALTERNATING SEEK INTERACTION TEST 
re 
a THIS TEST VERIFIES THAT THERE ARE NO TIMING !NTERACTION PROBLEMS 
:% BETWEEN SEEKS FROM BOTH PORTS. 
7 
9 A. PORT ‘A’ SEIZES THE DRIVE & SEEKS TO CYLINDER O & RELEASES 
:t THE DRIVE AFTER ‘ATTN’ IS RECEIVED 
% 
a THE PROGRAM VERIFIES THAT UNTIL ATTN IS PECEIWED. 





UNIBUS 
DZR6GA. 


Pil 


040562 
040564 
040572 


040576 
040602 


040604 
040612 
040620 
040626 
040634 
040642 
040650 
040654 


040656 
040664 
040672 
040700 
040706 
040714 
040720 


040722 
040730 
040732 
040734 


040734 
040740 


040746 
040754 
040762 
040770 
040776 
041004 
041010 


041012 
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000004 
012737 
012706 


004737 
104024 


013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


005037 
013737 


012765 
013765 
063765 
013765 
012737 
004737 
104131 


013737 


000001 
001100 


045534 


001222 


043372 


001222 
000000 
005464 
000101 
000001 
043372 


000040 


001414 
012770 


100000 
001222 
005464 
001414 
000017 
043372 


001412 


001174 


000010 
005464 
000010 
056576 
900010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


001416 


000000 
000010 
000010 
000020 
005314 


N05352 
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ALTERNATING SEEK INTERACTION TEST 


PORT 'B' SEES CONTROLLER ERROR & DRIVE NOT AVA‘LABLE. 


PORT 'B' SEIZES THE DRIVE & SEEKS TO THE LAST CYL 
& RELEASES THE DRIVE AFTER ‘ATTN’ IS RECEIVED 


THE PROGRAM VERIFIES THAT UNTIL ATTN IS RECEIVED, 
PORT 'A' SEES CONTROLLER ERROR & DRIVE NOT AVAILABLE 


THE ABOVE IS REPEATED FOR A PATTERN OF CONVERGING SEEKS 
TOWARD THE CENTER OF THE CARTRIDGE. 


THE PROGRAM VERIFIES MULTIPLE ATTENTIONS OR ERRORS 
DO NOT OCCUR AS A RESULT OF TIMING PROBLERS. 


PEttttttsttttetttttttttttttttttittttttstttistttstttt ists sett ss 
T 


ST4O: 


64S: 


10S: 


SCOPE 

MOV #1,STIMES +;D0 1 ITERATION 

MOV a#STACK, SP 

JSR PC, SUBCLR 

ERROR 24 >CERR AFTER SCLR 

MOV SUNIT,RKCSZ2(RS) ; SETUP FOR PORT B 

MOV #1-UNITB 

ADD UNi TB. RKCSZ(R5) 

MOVB #'B.MSG19A 

ADD @RLS.RKCS2(R5) ;RELEASE PORT B 

MOV #SELORV, HCS1 

JSR PC, DOCMD >DO SELORV (STATUS) CMD & GET CONTR RDY 
ERROR 117 *NO RDY AFTER SEL ORV CHO 

MoV SUNIT.RKCSZ2(R5) ; SETUP FOR PORT A 

MOV #0, UNITB 

ADD UNITB. RKCS2(R5) 

MOVB #'A,MSG19A 

MOV #SELDORV. HCS1 

JSR PC, DOCND >DO SELDRV (STATUS) CMD & GET CONTR RDY 
ERROR 117 >NO RKY AFTER SEL ORV CMD 

BIT #D. ORA, HMRZ ;SEE !F DRIVE AVAIL ON PORT A 
BNE 64S -BR IF YES 

ERROR 71 ;PORT A NOT AVAIL AFTER PORT B RLS 
CLR WO1 > SETUP CONVERGING LIMITS 

Mov LC, WD2 

MoV #CCLR, RKCS1(R5) 

MOV SUNIT. RKCS2(R5) 

ADD UNITB, RKCS2(R5) 

MOV WO1,RKOC (RS) 

MoV #SEEK. HCS1 

JSR PC, DOCMD >DO SEEK CMD & GET CONTR READY 
ERROR 131 *NO RDY AFTER SEE CMO-PORT A 
Mov TSO000. TEMP 1 


SEQ 0147 


UNI BUS 
DZR6GA. 


Pil 


041020 
041024 
041032 
041034 
041042 
041050 
041054 
041056 
041060 


041004 
041072 
041076 
041100 
041104 
041112 
O41114 


041120 
041124 
041132 
041136 


041140 
041146 
041150 


041152 


041152 
041160 
041164 
041172 
041200 
041204 
041212 


041220 
041224 
041226 
041230 
041232 
041234 
041236 
041244 
041252 
041260 


041266 
041272 
041300 
041304 
041306 
041314 
041316 


013704 
136465 
001032 
012737 
112737 
004737 
000403 
104103 
000137 


012765 
005337 
001350 
005037 
112737 
104156 
000137 


005037 
112737 
004737 
104157 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 
013737 
013765 
013765 
063765 


012700 
012737 
004737 
104171 
032737 
001401 
104174 


09: 55 


001222 
005304 


000001 
000102 
044172 


042644 


100000 
005352 


005464 
000101 


042644 


005464 
000101 
044172 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001414 
001414 
001222 
COS5464 


001666 
000025 
04 3430 


100000 


000017 


005464 
056576 


000000 


056576 


056576 


905314 


005404 


005410 
005412 


005416 
005422 


001346 
000020 
000010 
000010 


005314 


005314 


RKO6-RKO? DUAL PORT DRIVE reine 
29-SEP-77 T4O 


1$: 


28: 


3S: 


4S 


F 12 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 148 
ALTERNATING SEEK INTERACTION TEST 


SUNIT, RY 
— » RKASOF + ‘ae ae eee FOR ATTN ON PORT A 
#1, UNITB ;ELSE VERIFY PORT B NOT AVAIL 
#'B, MSG19A 
gna 
aa ;PCRT B AVAIL BEFORE TMO OR RELEASE 
11 
#CCLR, RKCS1ERS) 
TEMP 1 
SEE IF PORT A HAS ATTN 
UNITB : 
#'A,MSG19A 
156 ;NO RTTN ON PORT A AFTER SEEK 
11$ “EXIT TEST 
UNI TB ;SETUP FOR PORT A 
#'A,MSG19A 
Px, DRAY 
157 ;PORT A NOT AVAIL AFTER SEEK 
#CERR, HCS1 
4§ 
210 *CERR AFTER SEEK CMD ON PORT A 


#<D. OSC'D. ORA'D SPIN'D. ORDY!D. V¥>.E. ADO -; EXPECTED MSG AD 
E. BO EXPECTED MSG BO 
#<D. SPOK!D. CART! D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 


#1-€. Bt MSG 10 FOR EXPECTED MSG B1 
£. AZ EXPECTED MSG AZ 

#2-€. 82 ;MSG ID FOR EXPECTED MSG B2 
#3,€.83 *MSG 1D FOR EXPECTED MSG B3 
PC, CHKMSG >CHECK MSGS AOD, BO, Al, Bi 
0'0'0 *& MSGS SPECIFIED HERE 

161 >MSG AO ERROR AFTER SEEK CMD 
162 MSH BO ERROR 

163 >MSG Al ERROR 

164 MSG B1 ERROP 

WO1, TOCYL »SETUP TO SEE IF ON CORRECT CYL 
WO1,RKOC (RS) 


SUNIT, RKCS2(R5) 
UNITB, RKCS2(R5) 


#RHTAB. RO 

#<RDHEAD>, HCS1 

PC, DATCMD 00 DATA X FOR CMD & GET CONTP POY 
171 >NO RDY AFTER FEAD HEADER CMD 
@CERR, HCS1 

66$ 

174 >CERR AFTER READ HEADER CHO 


SEQ 0148 


UNI BUS 
DZR6GA. 


Pil 


041320 
041324 
041330 


041334 
041342 
041344 
041350 
041352 


041352 
041360 
041364 
041372 
041400 
041404 
041412 


041420 
041424 
041426 
041430 
041432 
041434 


041436 
041444 
041446 
041450 


041450 
041454 


041456 
041464 
041472 
041500 
041506 
041514 
041522 
041526 


041530 


041606 


29-SEP-7 


016520 
016520 
016520 


032765 
001403 
004737 
104173 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


CO4737 
000903 
104301 
104271 
104302 
104272 


023737 
001401 
104051 


004737 
104024 


013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001901 
104071 


000024 
000024 
000024 


100000 


045146 


010340 


oo0co3 
044274 


001566 


045534 


001222 


043372 


001222 
000001 
005464 
000102 
000001 
043372 


600040 


000010 


005404 


005410 
005412 


005416 
005422 


000010 
005464 
000010 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


N05342 


RKOG-RKO7 QUAL PORT ORIVE a 
7 09: 55 T4O 


66S: 


675: 


05S: 


G 12 
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ALTERNATING SEEK INTERACTION TEST 


RKDB(R5), (RO)+ [71'S 
RKDB(R5),(RO)+ + 2'°ND W 
RKDOB(R5), (RO) 7 3'R 


#OLT, RKCSZ(R5) 
67% 

PC, GSTAT 

173 +DLT AFTER READ HEADER CMD 

#<D. DRA!'D. SPIN'D. ORDY!D. V¥>.E.AO -;EXPECTED MSG AD 


E. B80 EXPECTED MSG BO 
#<D. SPOK!'D. CART!D. DOOR!D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 


#1,€.B1 +MSG 10 FOR EXPECTED MSG B1 

E. AZ EXPECTED MSG AZ 

#2,E£. 82 ;MSG ID FOR EXPECTED MSG 82 
#3,€.B3 +MSG ID FOR EXPECTED MSG B3 
PC, CHKMSG > CHECK ~ A. - BO, Al. Bi 
T.AZ!T. B2!0 MSGS SPECIFIED HERE 
301 MSG AD ERROR AFTER READ HEADER CMD 
271 +MSH BO ERROR 

202 >MSG Al ERROR 

272 *MSG B1 ERROR 

RHTAB, TOCYL +CHECK WORD O ONLY, CYL 

e5$ 7BR IF SAME 

51 >WRONG CYL4# ON HEADER 


PC, SUBCLP 
24 >CERR AFTER SCLR 


SUNIT,RKCS2(R5) ;SETUP FOR PORT A 


#0, UNITB 

UNI TB, RKCS2(R5) 

#'A,MSG19A 

@RLS.RKCSZ2(R5) ;RELEASE PORT A 

@#SELORV, HCS1 

PC, DOCMD *DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 >NO ROY AFTER SEL DRY CMD 
SUNIT,RKCS2(R5) ; SETUP FOR PORT B 

#1, UNITB 

UNI TB, RKCSZ(R5) 

#'B,.MSG19A 

#SELDRV, HCS1 

PC, DOCMO >DO SELDRV (STATUS) CMD & GET CONTR RDY 
117 7NO RKY AFTER SEL ORV CMD 

#0. DORA, HMRZ >SEE IF DRIVE AVAIL ON PORT B 

68$ 7BR IF YES 

71 PORT B NOT AVAIL AFTER PORT A PLS 


UN | BUS 
DZR6GA. 


7843 
7844 
7845 


Pil 


041606 
041614 
041622 
041630 
041636 
041644 
041650 


041652 
041660 
041664 
041666 
041674 
041676 
041702 
041710 
041714 
041716 
041720 


041724 
041732 
041736 
041740 
041746 
041754 
041756 


041762 
041770 
041776 
04 2002 
04 2004 
042012 
042014 


042016 
042016 


042024 
042030 
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012765 


104131 


013737 
013704 
005204 
136465 
001032 
005037 
112737 
004737 
000403 
104103 
000137 


012765 
005337 
001350 
012737 
112737 
104156 
000137 


012737 
112737 
004737 
104157 
032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


063765 


100000 


043372 
001412 
001222 
005304 
005464 
000101 
044172 
042644 


100000 
005352 


000001 
n00102 


042644 
000001 
000102 
044172 


100000 


050340 


000002 
000003 


044274 


001416 
001416 
001222 
005464 


000000 
000010 
000010 
000020 
005314 


005352 


000017 


056576 


9000C0 


005464 
N5e576 


N054e4 
DN5e657o0 


005314 


005404 


005410 
005412 


005416 
005422 


001346 
000020 
000010 
000010 


RKO6-RKO7 DUAL PORT ORIVE eee 


5S: 


6$: 


7S: 


8$ 
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ALTERNATING SEEK INTERACTION TEST 


MOV #CCLR, RKCS1(R5) 

MOV SUNIT, RKCS2Z(R5) 

ADD UNITB, RKCSZ(RS) 

MOV WO2Z, RKDC (RS) 

Mov #SEEK, HCS1 

JSR PC, DOCND +D0 SEEK CMD & GET CONTR READY 
ERROR 131 +NO READY AFTER SEEK CMD-PORT B 


MOV TS0000. TEMP 1 
MOV pia RY 


BITB ATTNCRYD, RKASOF+1(R5) ; TEST FOR ATTN ON PORT B 
7$ *BR IF THERE 


CLR UNITB “ELSE VERIFY PORT A NOT AVAIL 
MOVB #'A,MSG19A 


BR 6$ 

ERROR 103 >PORT A AVAIL BEFORE TMO OR RELEASE 
JMP 11$ 

MoV #CCLR-RKCSICRS) 

DEC TEMP 1 

BNE 5$ ;SEE IF PORT B HAS ATTN 

MoV #1-UNITB 

ncvB #'6.MSG19A 

ERROR 156 ;NO ATTN ON PORT 8 AFTER SEEK 
JMP 11$ 7EXIT 

MOV #1, UNITE >SETUP FOR PORT B 

MOVB #'B.MSGI9A 

JSR PC, DRAV 

ERPOR 157 :PORT B NOT AVAIL AFTER SEEK 
BIT aCERR, HCS1 

BEQ $$ 

ERROR 219 :CERP AFTER SEEK CMD ON PORT B 


MoV #<0.DSC'D. DRA'D. SPIN'D. ORDY'D. VV>.E. AD ; EXPECTED MSG AD 


CLR E 80 -EXPECTED MSG BO 

MoV #<D. SPOK'D. CART!D. DOOR'D. BRHM'D. SSP>.E.A1 -;EXPECTED Al 
Mow #1-€.B1 7MSG ID FOR EXPECTED MSG B1 

CLR E. AZ EXPECTED MSG AZ 


/MSG 10 FOR EXPECTED MSG B2 
;MSG 1D FOR EXPECTED MSG B3 


JSR Pc, CHKMSG ;CHECK MSGS AC, BO. Al. Bi 
-WORD O0'0!0 >& MSGS SPECIFIED HERE 

ERROR 161 7MSG AD ERROR AFTER SEEK CHO 
ERROR 162 MSH BO ERROR 

ERROR 163 MSG Al ERROR 

ERROR 164 -MSG B1 ERROR 


MOV WO2, TOCYL SETUP TO SEE IF ON CORRECT CYL 
MoV WO2, RKOC (RS) 
mov SUNIT, RKCS2(R5) 


ACL UNITB.RKCS2(R5) 


SEQ 0150 


UNI BUS 
DZReGA. 


7899 
7900 
7901 
7902 


Pil 


042132 
042136 
042144 
042150 
042152 
042160 
042162 


042164 
042170 
042174 


042200 
042206 
042210 
042214 
042216 


042216 
042224 
042230 
042236 
042244 
042250 
042256 


042264 
042270 
042272 
042274 
042276 
042300 


042302 
042310 
O42312 
042314 


042314 
042320 
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012700 
012737 
004737 
104171 
032737 
001401 
104174 


016520 
016520 
01€520 


032765 
001403 
004737 
104173 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000003 
104301 
104271 
104302 
104272 


023737 
001401 
104051 


004737 
104024 


012737 
004737 
104131 


013737 


001666 
000025 
043430 


100000 


000024 
000024 
000024 


100000 
045146 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


001666 


045534 


001414 
001416 
CO1414 


001222 
005464 


000017 
043372 


001412 


005314 


005314 


000010 


005404 


005410 
005412 


005416 
005422 


001346 


001416 


000010 
000010 


005314 


005352 


RKOG-RKO7 DUAL PORT DRIVE cieagentoay 


70S: 


71%: 


695: 


MACY11 30(1046) 


1 12 
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77 10:08 PAGE 151 SEQ 0151 


ALTERNATING SEEK INTERACTION TEST 


#RHTAB, RO 
#<RDHEAD>, HCS1 
PC, DATCHD 

171 

#CERR, HCS1 

70$ 

174 

RKOB(RS), (RO)+ 
RKDB (RS), (RO)+ 
RKDB(RS), (RO)+ 
ROLT, RKCS2Z(R5) 
71% 


1 
PC, GSTAT 
173 


#<D. DRA'D. SPIN'D. DROY!D. VV¥>.E. AD 
80 


#2,€.B2 
#3,€.B3 


PC, CHKMSG 
T.A2'T. B2'0 


RHTAB. TOCYL 
69% 
51 


PC, SUBCLP 
24 


SUNIT, RKCS2(R5) 
UNITB, RKCS2(R5) 


#SEEK, HCS1 
PC, DOCMD 
131 


TS0000. TEMP 1 


E. 
#<9. SPOK!'D. CART!D. DOOR!'D. BRHM'D. SSP>,E. Al 
1 


;D0 DATA X FOR CMD & GET CONTR ROY 
+NO RDY AFTER READ HEADER CMD 
;CERR AFTER READ HEADER CMD 

;1'ST WORD FROM SILO TO RHTAB 
+2'°NC WORD 

> 3'°RD WORD 


DLT AFTER READ HEADER CMO 


EXPECTED MSG AD 
EXPECTED Al 


EXPECTED MSG BO 


;MSG 1D FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

;MSG ID FOR EXPECTED MSG B2 
MSG 1D FOR EXPECTED MSG B3 


;CHECK MSGS AO. BO. Al. Bi 
+& MSGS SPECIFIED HERE 
;MSG AO ERROR AFTER READ HEADER CHMOD 
7MSH BO ERROR 
MSG Al ERROR 
7MSG B1 ERROR 


> CHECK WORD 0 ONLY. 


CYL# 
>BR IF SAME 
;WRONG CYL# ON HEADER 


>CERR AFTER SCLR 
>CONVERGE THE CYLINDERS 


;SEE IF CONVERGED TOGETHER 
;BR IF NO & REPEAT 


DO SEEK CMD & GET CONTR READY 
*NO RDY AFTER SEEK CMO 


> SETUP TIMEOUT 


UNI BUS os RKO? DUAL PORT OR!IVE scampeeinee, 


DZR6GA. 


042400 
042404 


042406 
042414 
042416 


042420 


042420 
042426 
042432 
042440 
042446 
042452 
042460 


042466 
042472 
042474 
042476 
042500 
042502 


042504 
042510 
042510 
042516 
042524 
042532 
042540 
042546 
042554 
042560 


042562 
042570 
042576 
042604 
042612 
042620 
042624 


04 2644 
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004737 
104132 


032737 
001401 
104210 


012737 
005037 
012737 
012737 
005037 
012737 
012737 


004737 
000000 
104161 
104162 
104163 
104164 


0001 37 


013765 
012737 
063765 
112737 
062765 
012737 
004737 
104117 


013765 
012737 
063765 
112737 
012737 
004737 
104117 


032737 
001001 
104071 


000137 


-77 09:55 


044106 


100000 


050340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


04 2644 


001222 
000001 


043372 


000040 


040746 


005314 


005404 


005410 
005412 


005416 
005422 


000010 
005464 
000016 
056576 
000010 
005314 


000010 
005464 
000010 
056576 
005314 


005342 


725: 
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ALTERNATING SEEK INTERACTION TEST 


JSR PC, FATTZ 
132 


BIT #CERR, HCS1 
723 
ERROR 210 


+F IND ATTN 
+NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


MoV #<D. OSC!D. ORA'D. SPIN'D. ORDY'D. VV>.E. AO ;EXPECTED MSG AD 


MOV #1,€. B1 
CLR E. AZ 
MoV #2,E. B2 
MOV #3.E€.B3 


JSR PC, CHKMSG 


.WORD 0'0!0 

ERROR 161 

ERROR 162 

ERROR 163 

ERROR 164 

JMP 11% 

MoV SUNIT. RKCS2(R5) 
MOV #1, UNITB 


ADD UNITB. RKCS2Z(R5) 
MOVB #'B, MSG19A 

ADD #RLS, RKCS2(R5) 
MOV #SELORV, HCS1 
JSR PC, DOCMD 

ERROR 117 


MoV SUNIT. RKCS2(R5) 
MoV #0, UNITB 

ADD UNITB, RKCS2(R5) 
MOVB #'A,MSG1I9A 

MOV @SELORV, HCS1 
JSR Pc, DOCMD 


ERROR 117 

BIT #0. ORA, HMRZ 
BNE 73% 

ERROR 71 

JMP 10$ 


ECTED MSG BO 


+ EXP 
MOV #<D. SPOK!D. CART!D. Set BRHM'D. SSP>.E. Al ;EXPECTED Al 


+MSG 1D FOR EXPECTED MSG B1 
EXPECTED MSG AZ 

+MSG 1D FOR EXPECTED MSG B2 
+MSG 10 FOR EXPECTED MSG B3 


CHECK MSGS AO, BO. Al. Bi 
*& MSGS SPECIFIED HERE 

+MSG AO ERROR AFTER SEEK CMD 
*MSH BO ERROR 

*MSG Al ERROR 

*MSG B1 ERROR 


:EXIT TEST 
;SETUP FOR PORT B 


RELEASE PORT B 


;DO SELDR¥ (STATUS) CMD & GET CONTR RDY 
+NO RDY AFTER SEL ORV CMD 


> SETUP FOR PORT A 


DO SELDRPV (STATUS) CMD & GET CONTR RDY 
>NO RKY AFTER SEL DRY CMO 


SEE IF DRIVE AVAIL ON PORT A 
BP IF YES 
;PORT A NOT AVAIL AFTER PORT B PLS 


SEQ 0152 


UNIBUS 
DZR6GA 


8010 
8011 
8012 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
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.SBTTL END OF PASS ROUTINE 


+s RXXAAAAAAAAAA AAA AAA AAA AAAI AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATS 
+XINCREMENT THE PASS NUMBER (S$PASS) 
+KTYPE "END PASS #XXXXX" (WHERE XXXXX 1S A DECIMAL NUMBER) 


+*KIF THERES A MONITOR GO TO IT 


;*KIF THERE ISN'T JUMP TO STS 


SESCAPE 
#1,STIMES 
#STACK, SP 
SOEVCT 
DRIVS, SDEVCT 
SEOP1+2 
NUDRV 


STSTNM 

STIMES 

SPASS 
#100000. SPASS 
(PC)+ 

1 

SDOAGN 

(PC)+, d(PC)+ 
1 


» SENONG 
SPASS. - (SP) 


, SENULL 
d#42.R0 
SDOAGN 


PC, (RO) 


a(PC)+ 
ST5 


-1,-1,0 
<15><12>Z7END PAS 


Pil 29-SEP-77 09: 55 END OF PASS ROUTINE 
042644 SEOP: 
042644 O00004 SCOPE 
042646 005037 001176 CLR 
042652 012737 000001 001174 MOV 
042660 012706 001100 MOV 
042664 005237 001220 INC 
042670 023737 005434 001220 CMP 
042676 001403 BEQ 
042700 000137 012472 JMP 
042704 000004 SEOP1: SCOPE 
042706 005037 001102 CLR 
042712 CO5037 001174 CLR 
042716 005237 001216 INC 
042722 042737 100000 01216 BIC 
042730 005327 DEC 
042732 000001 SEOPCT: . WORD 
042734 003022 BGT 
042736 012737 MOV 
042740 000001 SENDCT: . WORD 
042742 042732 SEOPCT 
042744 104401 043011 TYPE 
042750 013746 001216 MOV 
042754 104405 TYPOS 
042756 104401 043006 TYPE 
042762 013700 000042 SGET42: MOV 
042766 001405 BEQ 
042770 000005 RESET 
042772 004710 SENDAD- JSR 
042774 000240 NOP 
042776 000240 NOP 
043000 000240 NOP 
04 3002 SDOAGN: 
043002 000137 JMP 
043004 010646 SRTNAD: . WORD 
04 3006 377 377 OOO SENiILL: . BYTE 
043011 015 042412 042116 SENDNG: . ASCIZ 
043016 O50040 051501 020123 
043024 000043 


; INCR COUNT FOR # DRIVES CHECKED 
;ARE ALL DRIVES PRESENT TESTED? 
;BR IF YES 

;ELSE TEST NEXT DRIVE PRESENT 


;+ZERO THE TEST NUMBER 

;;ZERO THE NUMBER OF ITERATIONS 
+; INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEG. NUMBER 

++ LOOP? 


33 V€$ 
;;RESTORE COUNTER 


;; TYPE “END PASS #" 
7;SAVE SPASS FOR TYPEOUT 
;;GO TYPE--DECIMAL ASCII WITH SIGN 
7; TYPE A NULL CHARACTER 
;;GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
7; CLEAR THE WORLD 

;:GO TO MONITOR 

;;SAVE ROOM 

>; FOR 

;;ACTI1 

;;RETURN 


»+NULL CHARACTER STRING 
S a 


SEQ 0153 


UNI BUS 


DZROGA. 
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Pil 


043026 
043032 
043036 
04 3040 
043042 
043044 


043046 
043052 
04 3054 
04 3060 


04 3064 
043070 
043072 
043100 
043102 
043110 
043112 
O43114 
043116 
043124 
043124 


043126 
04 3130 
043132 


043174 
043176 


012700 
012701 
005020 
005201 
001375 
000207 


005737 
001024 
005237 
104401 


005737 
001012 


000403 
112737 


000207 


104411 


012708 


020402 
001415 
005723 
005204 
020427 
001371 
005702 
001025 
020127 


005424 
177757 


001340 


001340 
054566 


000042 
001230 
001140 


000001 


177774 


177400 
0054 36 
000060 


000067 


177774 


000001 
000176 


001134 


SUBROUTINES 
.SBTTL SUBROUTINES 
+ SUBROUTINE TO CLEAR ALL FLAGS FROM DOUMP THRU UNI TB 


’ 


CLRFLG: MOV #ODUNMP. RO 
MOV 


#-17. /R1 
1$: CLR (RO)+ 
INC Ri 
BNE 1$ 
RTS PC 


> TYPE PROGRAM ID IF FTITLE=0 


, 


TITLE: Li FTITLE 


NE 1$ 
INC FTITLE 
TYPE -MSG1 PROGRAM ID 


.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST 0842 ++ ARE WE RUNNING UNDER XXDP/ACT? 
BNE 64S +;BRANCH IF YES 

+;ARE WE RUNNING UNDER APT? 


BEQ 64S ++BRANCH IF YES 
CMP SHR, #&SWREG ++SOFTWARE SWITCH REG SELECTED? 
BNE 6558 ;>BRANCH IF NO 
GTSWR +;GET SOFT-SWR SETTINGS 
BR 65$ 
or MOVB #1, SAUTOB 7;SET AUTO-MODE INDICATOR 
653: 
18: RTS PC 


[ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
SDRIVS, DRIVO-DRIVZ REGISTERS APPROPRIATELY 
[ONLY EVEN NUMBERS ALLOWED (0, 2,4, 6) 


GORVS: RDLIN 
MoV (SP)+,R0 GET STARTING ADOR OF ASCII STRING 
MOV #-4,R1 SET UP COUNT 

1$: MOVB (RO)+,R2 +GET ASCII CHAR 
BIC #177400, R2 *MASK HI BYTE 


MoV #ORIVO,R3 DRIVE FLAG ADDR 


MoV #60, R4 


2$ CMP R4Y,R2 *WAS TYPED CHAR O THRU 6” 
BEQ 3$ +BRANCH IF YES 
TST (R3)+ NO, INCREMENT DR FLAG ADDR 
INC R4 
CMP R4, #67 
BNE 2$ *>$/7B 0-6 OR TERMINATOR 
TST R2 > TERMINATOR=0 
BNE 4 


SEQ 0154 


UN | BUS 
DZR6GA 


M12 
RKOG-RKO7? DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 155 SEQ 0155 
29-SEP-77 09: 55 


Pil 


043202 
043204 
043210 


043212 
043216 
043220 
043222 
043226 
043230 
043234 
043240 
043242 
043244 
043246 


043250 
043254 


043260 
043262 
043264 


043266 
043272 


043274 
043276 
043300 
042302 
043304 
043310 
043312 
043320 


001431 
005037 
000207 


032704 
001014 
005213 
005237 
112002 
042702 
022702 
001407 
00&702 
001001 
000756 


104401 
000137 


005201 
001325 
000771 


005237 
000207 


104412 
012600 
005700 
001403 
010037 
000207 
012737 
000207 


104412 
012600 
005700 
001405 
010037 
004737 
000207 
012737 
000771 


005462 


000001 


0054 34 


177400 
000054 


057054 
010054 


005462 


001264 
177440 001264 


001314 
04 3354 


600210 001314 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


BEQ 6$ ;DEFAULT ALL ORIVES 
7$: CLR $|12Z2FLG +BYPASS TEST 1 (SIZING) 
RTS PC FOUND TERMINATOR, EXIT 
3: BIT #B1TO. RY +SEE IF ODD & 
BNE 4§ 
INC aR3 +SET UP FLAG FOR THE DRIVE 
INC DRIVS ; INCREMENT TOTAL # DRIVES TO BE TESTED 
MOVB (RO)+,R2 ;GET NEXT ASCII CHAR. 
BIC #177400, R2 + MASK 
CMP #54,R2 1S 1T A COMMA? 
BEQ 5$ +YES, GO TO NEXT WORD. 
TST R2 ;NO. 1S IT A TERMINATOR? 
BNE 4$ + 1F NOT, SOMETHING WRONG. 
BR 7$ FOUND TERMINATOR. EXIT 
4$: TYPE -EM1 ;ONLY 0, 2,4,6 ALLOWED 
JMP PRGSRT START ALL OVER 
S$: - 'NC R1 +S7B NO MORE THAN 4 DIFF 
BNE 1$ ;DRIVES TYPED IN. 
BR 4§ + 1F NORE, HAVE ERROR 
6$- INC Si2FLG +00 TEST 1 (SIZING) 
RTS PC s EXIT. 


[ROUTINE TO INPUT RKBAS OR DEFAULT 


, 


GBA: RDOCT 
MOV (SP)+,RO0 ;GET LOW ORDER FROM STACK 
TST RO 
BEQ 1$ >BRANCH IF DEFAULT 
MoV RO, SBASE 
RTS PC 
1$: MOV #177440,S$BASE ;DEFAULT VALUE 
RTS PC 


[ROUTINE TO INPUT RKVEC OR DEFAULT 


, 


GINT:  RDOCT 
MOV (SP) +, RO ;GET LOW ORDER FROM STACK 
TST RO 
BEQ 13 ;BRANCH IF DEFAULT 
MoV RO, RKVEC j 
25: JSR PC, SETINT 
RTS PC 
15. MoV #210. RKVEC ; DEFAULT VALUE 
BP 25 


: ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


N 12 
YNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 156 SEQ 0156 


DZR6GA. P11 29-SEP-77 09: 55 GET VALUE FOR SOFTWARE SWITCH REGISTER 
8169 
8170 043354 013700 001314 SETINT: MOV RKVEC, RO 
8171 043360 012720 050066 MOV # INTER, (RO)+ > INTER ADDR TO RKVEC 
8172 O43364 013710 001316 MoV RKPRI, (RO) ;PRS TO RKVEC+2 
8173 043370 000207 RTS PC 
8174 
8175 ; 
8176 + THIS ROUTINE SETS COT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7 
a oe sENTER WITH COMMAND IN HCS1 
8179 043372 053737 001170 005314 DOCND: BIS STMP4, HCS1 ;ADD COT IF RKO7 
8180 O43400 013765 005314 9000000 MoV HCS1,RKCS1(R5) ;D0 COMMAND 
8181 O43406 012737 001400 005352 MOV T10, TEMP 1 
8182 043414 004737 O4us466 JSR PC, FRDY +F IND CONTR READY 
8183 043420 000207 RTS PC +SET HERE IF NOT RDY 
$184 043422 062716 000002 ADD #2, (SP) sELSE SKIP OVER ERROR 
ae 043426 000207 RTS PC 
8187 > THIS ROUTINE 1S SIMILAR TO THE ABOVE BUT 1S USED FOR DATA TRANSFERS 
oe 4 >& REQUIRES A LONGER TIMEOUT 
1 ; 
8190 O43430 053737 001170 005314 DATCMD: BIS STMP4, HCS1 +ADD CDOT IF RKO7 
8191 043436 013765 005314 000000 MOV HCS1,.RKCS1(R5) ;D00 CMD 
8192 O43444 013737 OO1412 005352 MOV T590000,. TEMP 1 
8193 O43452 004737 O43466 JSR PC, FRDY >F IND CONTR RDY 
8194 043456 000207 RTS PC 
8195 043460 062716 O00002 ADD #2, (SP) 
8196 043464 000207 RTS PC 
8197 
8198 ; 
8199 ;ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY 
8200 >ENTER WITH A COUNT IN TEMP1 
8201 >RETURN IF RDY NOT PRESENT (ERROR CONDITION) 
8202 +RETURN #2 IF RDY PRESENT (SKIP OVER ERROR) 
— +;STATUS |S OBTAINED BEFORE THE RETURN FOR EITHER CASE 
8204 ; 
8205 043466 032765 000200 000000 FRDY: BIT #ROY, RKCS1(R5) 
8206 043474 001010 BNE 1$ 
8207 043476 005337 005352 DEC TEMP 1 
8208 043502 001371 BNE FRDY 
8209 043504 004737 043622 JSR PC, HOLD >STORE ALL RK611 REGS IN HOLDING REGS 
8210 043510 004737 045064 JSR PC, CKCERR >CHECK FOR SPECIAL CERR 
8211 043514 000297 RTS PC >NO ROY. EXIT 
8212 043516 062716 000002 18: ADD #2, (SP) >SKIP OVER ERROR 
8213 043522 004737 043622 JSR PC, HOLD 
8214 043526 004737 045064 JSR PC.CKCERR > CHECK FOR SPECIAL CERR 
sete 043532 000207 RTS Pc 
1 ; 
8217 ;ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE FEGS ONLY 
8218 ; 
8219 043534 032765 000200 O00000 FRDY1: BIT #ROY. RKCS1ICRS) 
8220 043542 001014 BNE 1$ 
8221 043544 005337 005352 DEC TEMP 1 
8222 043550 001371 BNE FROY1 . 
8223 043552 016537 O00034 005342 MoV RKMR2(RS), HMRZ 


8224 043560 016537 000036 005344 Mov RKMR (RS), HMRS 





UN'IBUS 
DZRO6GA. 


B 13 
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Pil 


043566 
043572 
043574 
043600 
042606 
043614 
043620 


043622 
04 3630 
043636 
043644 
04 3652 
04 3660 
04 3666 
043674 
043702 
043710 
043716 
043724 
043732 
043740 
043746 


042750 
043752 
043756 
043762 
043770 
043772 
043774 
044000 
044002 
044004 


044006 
044010 
044016 
044022 


29-SEP-77 


004737 
000207 


000207 


016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
016537 
000207 


010446 
013704 
063704 
136437 
001404 
012604 
062716 
000207 
012604 
000297 


010446 
012737 
013704 
063704 


09: 55 
045064 


000002 
000034 
000036 
045064 


000000 
000010 
000002 
000004 
000006 
000012 
000014 
000016 
000020 
000026 
000034 
000036 
000030 
000032 


001222 
005464 
005304 


000002 


177777 
001222 
005464 


605342 
005344 


005314 
005316 
005320 
005322 
005324 
005326 
005330 
005332 
005334 
005340 
005342 
005344 
005346 
005350 


005333 


005352 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
JSR ~ geggsemee 
1$: AOD #2, (SP) 


MOV RKMRZ(RS). HMRZ 
MoV RKMR3(RS). HARI 


O RDY, EX! 
SKIP OVER ERROR 


; STORE ALL RK611 REGISTERS IN HOLDING REGS 


‘ 


HOLD: MOV RKCS1(R5), HCS1 
MOV RKCS2(R5), HCSZ 
MoV RKWC (RS), HWC 
MOV RKBACRS), HBA 
MOV RKDACRS). HDA 
MoV RKOS(RS), HOS 
MOV RKER (RS), HER 
MOV RKASOF (RS), HASOF 
Mov RKOC (RS), HDC 
MOV RKMR1(R5), HMR 1 
MoV RKMRZ2(R5S), HMRZ 
MoV RKMR3(RS), HMRZ 
MOV RKECPS(RS), HPOS 
MOV RKECPT(RS), HPAT 
RTS PC 


; ROUT INE TO CHECK FOR CORRECT ATTN 
RETURN IF ATTN NOT PRESENT (ERROR CONDITION) 
;RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 


TSTATN: MOV Ru, - (SP) SAV RY 


MoV SUNIT. RY 
ADD UNITB, RY ;ADD 1 IF ON PORT B 


BITB ATTN(RY ), HASOF +1 


BEQ 1$ ;BRANCH IF ATTN NOT PRESENT 
MoV (SP)+,R4 RESTOR RY 
ADD #2, (SP) 
RTS PC 
1$: MOV (SP)+,R4 RESTOR RY 
RTS PC 


; ROUT INE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC 


ENTER WITH TIME IN SECONDS IN TEMP2 
;RETURN IF NO ATTN (ERROR CONDITION) 
;RETURN +2 IF ATTN FOUND 


;STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 


, 


FATT1: MOV R4,-(SP) > SAV RY 
3$: MOV #-1, TEMPS 
MoV SUN!T,R4 


ADD UNITB,R4 ADD 1 IF ON PORT B 


+ CHECK FOR es CERR CONDITIONS 


JSR ven ; CHECK FOR SPECIAL CERR CONDITIONS 


> INCR RET ADDR TO JUMP OVER ERROR 


SEQ 0157 


JNIBUS 
DZR6GA 


C 13 
RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 158 SEQ 0158 
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.Pil 


044026 
044024 
044036 
044042 
044044 
044050 
044052 
044056 
044062 
044064 
044066 
044072 
044076 
044100 
044104 


044106 
044110 
044114 
044120 
044126 
044130 
044134 
044136 
044142 
044146 
044150 
044152 
044156 
044162 
044164 
044170 


044172 
044176 
044 204 
044206 
044212 


136465 
001014 
005337 
001371 
005337 
001357 
005065 
004737 
012604 
000207 
005065 
004737 
012604 
062716 
000207 


010446 
013704 
063704 
136465 
001011 


000207 


004737 
032737 
001402 
062716 
000207 


005304 
005352 
005354 
000026 
045146 
000026 
045146 
006002 


001222 
005464 
005 304 
005352 
000026 
045146 
000026 
045146 


000002 


045146 
coc040 


900002 


000017 


000017 


005342 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


1$: BITB ATTN(RY),RKASOF4+1(RS) 7 FIND CORRECT ATTN 
BNE 2$ 
DEC TEMP 1 
BNE 1$ 
DEC TEMP2 
BNE 3$ 
CLR RKMR1 CRS) SELECT WORD 0 
JSR PC, GSTAT +GET LATEST STATUS 
MOV (SP)+,R4 RESTOR RY 
RTS PC 
23: CLR RKMR1 (RS) 
JSR PC, GSTAT ;GET STATUS AFTER ATTN SEEN 
MOV (SP)+,R4 sRESTOR RY 
ADD #2, (SP) +SKIP OVER ERROR 
RTS PC 


;ROUTINE TO FIND ATTN WITHIN 1 SEC 

/ ENTER WITH COUNT IN TEMP1 

>RETURN IF NO ATTN CERROR) 

*>RETURN +2 1F ATTN FOUND 

STATUS 1S OBTAINED BEFORE THE RETURN FOR EITHER CASE 


FATT2: MOV R4, - (SP) ; SAV RY 

2$: MoV SUNIT,. RY 
ADD UNI TB. RY ;ADD 1 IF ON PORT B 
BiTB ATTN(RY),RKASOF+1°R5) = FIND CORRECT ATTN 
BNE 1$ 
DEC TEMP 1 
BNE 2$ 
CLR RKMR1 (RS) >SELECT WORD G 
JSR PC, GSTAT GET LATEST STATUS. 
MOV (SP)+,R4 >RESTOR RY 
RTS PC 

1$: CLR RKMR1 (RS) 
JSR PC, GSTAT 
Mov (SP)+,R4 *RESTOR RY 
ADD #2, (SP) +SKIP OVER EPROP 
RTS PC 


: THIS ROUTINE CHECKS ‘DRIVE AVAILABLE’ IN MSG AD AFTER A SELECT COMMAND 
; IF NOT SET. IT DOES A NORMAL RETURN 
> IF SET, IT DOES A RETURN+2 


DRAV: JSR PC, GSTAT 
BIT #D. DRA. HMRZ SEE IF ORIVE AVAILABLE SET 
BEQ 1$ BR IF NO & RETURN 
ADO #2, (SP) 7ELSE RETURN+2 

1S: RTS PC 


-THIS ROUTINE LOOKS FOR ATTN 
> RETURN+2 IF FOUND BEFORE COUNT=0 
> RETURN IF COUNT=0 (ERROR CONDITION? 


UNI BUS 
DZR6GA 
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PL 


044214 
044222 
044224 
044230 
044232 
044234 
044240 


044242 
044246 
044250 
044254 
044256 


044260 
044264 


044266 
044270 
044271 
044272 


044274 
044 302 
044 306 


044312 
044320 
044326 
044 334 
044 342 
044 350 
044 356 
044 364 
044372 


044400 


044404 
044412 
044416 


0444 24 
0444 32 
0444 36 


136465 
001004 
005737 
001371 
000207 
062716 
000207 


005737 
001403 
005337 
000772 
000207 


104401 
010046 


000207 


017637 
062716 
004737 


053737 
063737 
053737 
063737 
053737 
063737 
053737 
063737 
053737 


013746 


013737 
004737 
013737 


013737 
004737 
013737 


005304 
001366 


000002 


005352 
005352 


056455 


000000 
000002 
045210 


001222 
005464 
001222 
005464 
001222 
005464 
001222 
005464 
012776 


C05352 


005404 
047224 
005352 


005410 
047224 
005352 


000017 


001460 


005404 


005420 
005404 


005352 
005404 
005352 
005410 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
FATTS: or eae monte + TEST FOR ATTN 


NE $ 
TST COUNT +SEE IF TIME UP 
BNE FATTS +BR IF NO 
RTS PC 

1$: ADD #2, (SP) ; JUMP OVER ERROR 
RTS PC 


ZENTER WITH A COUNT IN TEMP 
“THE DELAY !S APPROX 17 US/ITERATION + 12 US TO EXIT 
;WHEN COUNT 1S 0. BASED ON AN 11/05 


DLY: TST TEMP 1 *5.6 US 
BEQ 1$ 2.5 US 
DEC TEMP 1 +6.8 US 
BR OLY *2.5 US 
18: RTS PC 3. 8 US 


[THIS ROUTINE TYPES BYPASSED DRIVES. ENTER WITH DRIVES IN RO 


BYP: TYPE /MSG14 *BYPASS DRIVE 
MoV RO.-(SP) ;;SAVE RO FOR TYPEOUT 
+; TYPE DR# 
TYPOS +,GO TYPE--OCTAL ASCI! 
.BYTE 1 ++ TYPE 1 DIGIT(S) 
.OvTE 0 >; SUPPRESS LEADING ZEROS 
RTS PC 


: THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ'D 
CHKMSG: MoV (SP), CHKFLG ;PASS MSGS TO BE TESTED 
ADD 


#2. (SP) >BUMP RETURN ADDR TO 1ST ERROR 
JSR PC, GSTATI GET ALL ACTUAL DRIVE & CONTR STATUS 
BIS SUNIT,E. A >SET UNIT & 
ADD UNITB,.E. AD ;ADG i IF ON PORT B 


BIS SUNIT.E. Al 
ADD UNITB.E. Al 
BIS SUNIT.E. AZ 
ADD UNITB.E.A2 
BIS SUNIT.E. AS 
ADD UNITB-E. A3 


BIS E. OOT.E. AD >SET COT IF RYO? 

MoV TEeMP1, -(SP) > SAVE TEMP1 

MOV E. AO, TEMP 1 

JSR PC, SBPAR >GET PARITY FOR MSG AD 
MoV TEMP1,E. AD 

MOV E. Ai, TEMP 1 

JSR PC, SBPAR >GET PARITY FOR MSG Al 
MoV TEMP1.€. Al 


---—--—_ --—- — --- -4 


SEQ 0159 


E 13 
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SEQ 0160 | 


DZR6GA.P11 29-SEP-77 09: 55 GET VALUE FOR SOFTWARE SWITCH REGISTER 

8393 044444 013737 005414 005352 Mov E. AZ, TEMP 4 

8394 044452 004737 047224 JSR PC, SBPAR ;GET PARITY FOR MSG AZ 

8395 OWWNSE 013737 005352 005414 Mov TEMP1,€. AZ 

8397 044464 013737 005406 005352 Mov E. 80, TEMP1 

8398 044472 004737 047224 JSR PC, SBPAR ;GET PARITY FOR MSG BO 

8399 0WW476 013737 005352 cos406 Mov TEMP1,€. 80 
8401 O44504 013737 005412 005352 Mov E. B81, TEMP4 

8402 044512 004737 047224 JSR PC, SBPAR ;GET PARITY FOR MSG B1 

B40 OWNBIE 013737 005352 005412 nov TEMP1,€. B1 

yOu 

8405 044524 012737 005416 005352 Mov E. 82, TEMP1 

8406 044532 004737 047224 JSR PC, SBPAR ;GET PARITY FOR MSG B82 

S407 OWNBI6 013737 005352 005416 Mov TEMP1,€. B2 

y 

8409 044544 013737 005422 005352 Mov E. 83, TEMP1 

8410 044552 004737 047224 JSR PC, SBPAR ;GET PARITY FOR MSG B3 

B11 OWNB5E 013737 005352 005422 Mov TEMP1,€. B3 

41 

8413 044564 012637 005352 Mov (SP) +, TEMP ;RESTORE TEMP! 

gviy OW4570 013737 001176 001172 Mov SESCAPE,STMPS  ; SAVE ESCAPE 

1 

8416 044576 023737 005364 005404 CMP H. 90, £. AO ; TEST MSG AO 

8417 044604 001411 BEQ 25 BR IF OK 

8418 O4W4E06 012737 044620 001176 Mov #15, SESCAPE ;ELSE SETUP ESCAPE 

8419 O44E1Y 011646 Mov (SP), -(SP) COPY RET ADDR. 

8420 044616 000207 RTS PC ;& RETURN TO MAINLINE ERROR 
8421 
8422 044620 032777 001000 134212 15. BIT #SU9. ASR ;RET HERE FROM MAINLINE ERROR 
8423 044626 001107 BNE 208 ;& BR IF LOOP ON ERROR 

B24 044630 062716 000002 2: ADD #2, (SP) ;BUMP RET ADOR TO NEXT ERROR 
gy 
8426 O44634 023737 005366 005406 CMP H. 80, E. BO ; TEST MSG BO 
8427 044642 001411 BEQ 5S BR IF OK 

8428 044644 012737 O44E56 001176 Mov #4S, SESCAPE ELSE SETUP ESCAPE 

8429 O44ES2 011646 Mov (SP), - (SP) COPY RET ADOR 

8430 044654 000207 RTS PC ;& RETURN TO MAINLINE ERROR 
8431 

8432 044656 032777 001000 134254 4S. BIT #SH9, ASR ;RETUPN HERE FROM MAINLINE ERROR 
8433 044664 001070 BNE 20$ ;& BR IF LOOP ON ERROR 

8434 O44G66 062716 000002 5S. ADD #2, (SP) BUMP RET ADDR TO NEXT ERROR 
3u 35 
8436 044672 023737 005370 005410 CMP H. ALE. Al ; TEST MSG Al 

8437 044700 001411 BEQ 8$ ;BR IF Ok 

8438 044702 012737 044714 001176 Mov #75, SESCAPE 
8439 O44710 011646 nov (3P),-(SP) 
gu40 044712 000207 RTS PC 
441 
8442 O44714 032777 001000 134216 7%: BIT #SH9. SHR 
8443 044722 001051 BNE 208 
g4u44 044724 062716 000002 8S: ADD #2, (SP) 
8445 
8446 044730 023737 005372 005412 CMP H.B1-£.B1 TEST MSG B1 
8447 044736 001411 BEQ 118 ;BR IF OK 
8448 O44740 012737 044752 001176 Mov #10%. SESCAPE 


UNIBUS RKO6-RKO7? DUAL PORT DRIVE ceyieeney 


DZROGA. P11 


044746 
044750 


044752 
044760 
044762 


044766 
044774 
044776 
045002 
045010 
045012 


045016 
045024 
045026 
045032 


045036 
045044 


045046 
045052 
045060 


045064 
045070 
045072 


045100 


04£102 


045104 
045112 
045114 
045116 


045120 
045! 26 
045130 


045132 
045140 
045142 


045144 


29-SEP-77 09: 55 


011646 
000207 


032777 
001032 
062716 


032737 
001402 
004737 
032737 
001402 
004737 


032737 
001404 
004737 
004737 


013737 
C00207 


012706 
013737 
000177 


005737 
001025 
032737 
001001 
000207 


032737 
001402 
104125 
000207 


032737 
001401 
104126 


032737 
001401 
104127 


000207 


001000 
000002 
000001 


046026 
000002 


046100 
000004 


046136 
046174 
001172 


001100 
001172 
174024 


001456 
100000 


904000 


010000 


001000 


134160 


001460 


001460 


001460 


001176 


001176 


005314 


O05314 


005316 


005316 


105: 
11%: 
12S: 


135: 


14S: 


15S: 


MACY11 30(1046) 
T VALUE FOR SOFTWARE SWITCH REGISTER 


MoV 
RTS 


(SP), -(SP) 
PC 


#SW9, ASHR 
20% 

#2, (SP) 

#T. AZ, CHKFLG 
13% 


PC, RCYLD 
#7. 82, CHKFLG 
14 


$ 
PC, RCYLA 
#T. B3, CHKFLG 
15$ 


PC, RSEC 
PC, RHEAD 


STMPS, SESCAPE 
PC 
#STACK, SP 


STMPS, SESCAPE 
@SLPERR 


F 13 
29-SEP-77 10:08 PAGE 161 


+ TEST MSG A2? 

>BR IF NO 

;PUT INFO CYLDIF, DO NOT CHECK 

; TEST MSG B2? 

+BR IF NO 

;PUT INFO IN CYLADD, DO NOT CHECK 


; TEST MSG B37? 


>PUT INFO IN SECTOR, DO NOT CHECK 
;PUT INFO IN HEADA, DO NOT CHECK 


RESTORE 


;RESET STACK PTR 
+ PESTORE 


[THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 


ri. 2.3 OF 


CKCERR: 


1$: 


LP 
i 


4$: 


TST 
BNE 


NED, 


BYPCERR 
4S 

#CERR, HCS1 
1$ 

PC 

#CTO, HCS1 
2$ 


126 
PC 


#NED, HCS2 
3$ 
126 


#MOS. HCS2 
4S 
127 


PC 


CTO OR MOS SET MESSAGE A & B ARE INVALID 


/BP IF CERR 


7;BR IF NOT CTO 
CTO ERROR, MSG A&B INVALID 


;BR IF NOT NEO 
*NED ERROR. MSG A & 8 INVALID 


:MOS ERPORP. MSG A&B INVALID 


“THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 
/1T THEN WAITS FOR CONTROLLER READY 
-1F RDY NOT RECEIVED BY THE TIMEOUT. AN ERROR 1S FLAGGED 


SEQ 0161 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


045146 
045152 
045160 
045166 
045174 
045200 
045202 
045206 


045210 
045214 
045220 
045226 
045234 
045242 
045250 
045254 
045256 
045264 


045272 
045300 
045306 
045314 
045322 
045326 
045330 
045336 


045344 
045352 
045360 
045366 
045374 
045400 
045402 
045410 


045416 
045424 
045432 
045440 
045444 
045446 
045454 


045462 
045466 


045470 
045476 
045504 
045512 


29-SEP-77 09: 55 


013746 
013765 
063765 
012737 
004737 
104117 
012637 
000207 


012746 
004737 
012765 
013765 
063765 
012765 
004737 
104117 
013737 
013737 


012765 
013765 
063765 
012765 
004737 
104117 
013737 
013737 


012765 
013765 
063765 
012765 
004737 
104117 
013737 
013737 


012765 
013765 
063765 
004737 
104117 
013737 
013737 


012637 
000207 


012737 
053737 
013765 
013737 


005362 
001222 
005464 
000001 
043372 


005352 


005352 
043622 
100000 
001222 
005464 
000003 
045470 


005342 
005344 


100000 
001222 
005464 
000002 
045470 


005342 
005344 


100000 
001222 
005464 
000001 
045470 


005342 
005344 


100000 
001222 
005464 
045470 


005342 
005344 


005352 


000001 
001170 
005314 
001400 


000010 
000010 
005314 


000000 
000010 
000010 
000026 


005400 
005402 


000000 
000010 
000010 
000026 


005274 
005376 


000000 
000010 
000010 
000026 


005370 
005372 


900000 
000010 
000010 


005364 
005366 


005314 
005314 
000000 
005352 


GSTAT: 


G 13 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 162 SEQ 0162 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


TEMP 1, -(SP) 
SUNIT, RKCS2(R5) 


UNI TB. RKCS2Z(RS) 


#SELORV. HCS1 
0 pa 


11 
(SP)+, TEMP1 
PC 


SAVE TEMP 1 
+CURRENT DRIVE & 
;ADD 1 IF ON PORT B 


;00 SELORV (STATUS) CMD & GET CONTR RDY 
+RDY NOT SET BY END OF SELECT DRIVE CMD 
+RESTOR TEMP. 


: THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AD-A3, B0-B3) 
»& ALL CONTROLLER REGISTERS. 


GSTATI: 


GSTAT2: 


MOV 


TEMP 1, -(SP) 

PC, HOLD 

#CCLR, RKCS1(R5) 
SUNIT, RKCS2Z2(R5) 
UNITB, RKCSZ(R5) 
#3, RKMR1 CRS) 
PC, GSTAT2 

117 

HMR2,.H AS 
HMR 3, H. BS 


#CCLR, RKCS1(R5) 
SUN!T, RKCS2(R5) 
UNI TB, RKCS2(R5) 
#2, RKMR1I (RS) 
PC, GSTAT2 

117 

HMR2,H. AZ 

HMR 3,H. BZ 


#CCLR, RKCS1(R5) 
SUNIT, RKCSZ2(R5) 
UNI TB, RKCS2(R5) 
#1, RKMR1CRS) 
PC, GSTAT2 

117 

HMRZ,H. Al 
HMR 3. H. B1 


#CCLR, RKCS1(R5) 
SUNIT, RKCSZ(R5) 
UNI TB, RKCS2(R5) 
PC, GSTATZ 

117 

HMR 2, H. AD 
HMR 3. H. BC 


(7P)+, TEMP 1 
P* 


#SELORV, HCS1 
STMP4, HCS1 
HCS1,RKCS1(R5) 
T10, TEMP 1 


+ SAVE TEMP! 

+GET ALL CONTR REG 
+ CLEAR CONTR 
CURRENT DRIVE & 
;ADD 1 IF ON PORT B 
;SELECT WORD 3 


;+RDY NOT SET BY END OF SELECT ORV CMD 
STORE MSG AZ 
STORE MSG B3 


>ADD 1 IF ON PORT B 
;SELECT WORD 2 


;RDY NOT SET BY END OF SELECT ORV CMD 
+ STORE MSG AZ 
+STORE MSG B2 


;ADD 1 IF ON PORT B 
+SELECT WORD 1 


*RDY NOT SET BY END OF SELECT DRV CMD 


+STORE MSG Al 
STORE MSG B1 


*ADD 1 IF ON PORT B 

*RDY NOT SET BY END OF SEL ORV CMO 
*STORE MSG AD 

STORE MSG BO 


RESTORE TEMP! 


>ADD COT IF RKO? 
GET STATUS 


% 


UNI BUS 
DZR6GA. 


H 13 
RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 163 
29-SEP-77 09: 55 


Pil 


045520 
045524 
045526 
045532 


045534 
045542 
045550 
045554 
045556 
045564 
045572 
045576 
045602 
045610 
045612 
045614 
045620 


045622 
045630 
045634 
045642 
045650 
045654 
045660 
045664 
045670 


045672 
045700 
045704 
045712 
045720 
045724 
045730 
045734 
045740 
045746 
045750 
045754 


004737 
000207 
062716 
000207 


012765 
013737 
004737 
104120 
013765 
063765 
005065 
004737 
032737 
001401 
000207 
062716 
000207 


012765 
004737 
013737 
042737 
006237 
006237 
006237 
006237 
000207 


012765 
004737 
013737 
043737 
006237 
006237 
006237 
006237 
023737 
001002 
005037 
000207 


043534 
000002 


000040 
001400 
04 3466 


001222 
005464 
000026 
045146 
100000 


000002 


000003 
045146 
005344 
177017 
001374 
001374 
001374 
001374 


000002 
045146 
005342 
012774 
001356 
001356 
001356 
001356 
001356 


001356 


009010 
005352 


000010 
000010 


005314 


000026 


001374 
001374 


000026 


001356 
001356 


012772 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


JSR PC, FROY1 FIND CONTR ROY & STORE DRiVE REGS ONLY 
RTS PC +;RET HERE IF NOT RDY 

ADD #2, (SP) RET HERE IF OK 

RTS PC 


+ THIS ROUTINE DOES A SUBSYSTEM CLEAR & WAITS FOR CONTROLLER READY 

+ 1F ROY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR |S FLAGGED 

+; THE ROUTINE THEN GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR) 
RETURN IF CERR SET 

>RETURN +2 !F CERR CLEAR 


SUBCLR: ae #SCLR,RKCS2(R5) ;SUBSYS CLEAR 


T10, TEMP 1 
JSR PC, FROY *>FIND ROY 
ERROR 120 +RDY NOT SET ¥ END OF SCLR 


MOV SUNIT,RKCSZ2(R5) ; CURRENT DRIVE & 
ADD UNITB,RKCS2(R5) ; ADD 1 IF ON PORT B 


CLR RKMR1 (RS) SELECT WORD O 
JSR PC, GSTAT GET STATUS 
BIT #CERR, HCS1 CHECK FOR CONT ERROR 
BEQ 1$ 
RTS PC 
1$: ADD #Z- (SP) SKIP OVER ERROR 
RTS PC 


; READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘SECTOR' 


RDOSEC: MOV #3, RKMR1(RS) WORD 3 
JSR PC, GSTAT 
MOV HMR 3, SECTOR 
Bic # C<M. SECT>, SECTOR 


ASR SECTOR *RIGHT JUSTIFY 
ASR SECTOR > SECTOR 

ASR SECTOR ; INFO 

ASR SECTOR 

RTS PC 


; READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF' 


ROCYLD: MOV #2,RKMR1ICRS) >WORD 2 
JSR PC, GSTAT 
MoV HMR 2, CYLDIF 
BIC MASK1, CYLDIF 


ASR CYLOIF ?RIGHT JUSTIFY 
ASR CrLDIF CYL DIFF /OFFSET 
ASR CYLDIF > INFO 
ASR CYLDIF 
CMP CYLDIF, MASK >CHK TO SEE IF RET IN COMPL FORM 
BNE 1$ >BR IF NOT 
CLR CYLDIF CLR IF YES 
1$: RTS PC 
>READ THE CYt. ADDR IN PKMRZ, RIGHT JUSTIFY IT & STORE IT IN “CYLADD' 


SEQ 0163 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


045756 
045764 
045770 
045776 
046004 
046010 
046014 
046020 
046024 


046026 
046034 
046042 
046046 
046052 
04605¢ 
046062 
046070 
046072 
046076 


046100 
046106 
046114 
046120 
046124 
046130 
046134 


046136 
046144 
046152 
046156 
046162 
046166 
046172 


046174 
046202 
046210 
C46214 
046220 


29-SEP-77 09: 55 


012765 
004 737 
013737 
043737 
006237 
006237 
006237 
006237 
000207 


013737 
043737 
006237 
006237 
006237 
006237 
023737 
C01002 
005937 
000207 


013737 
043737 
006237 
006237 
006237 
006237 
000207 


013737 
042737 
006237 
006237 
006237 
006237 
000297 


013737 
042737 
006237 
000337 
000207 


000002 
045146 
005344 
012774 
001360 
001360 
001360 
001360 


005374 
012774 
001356 
001356 
001356 
001356 
001356 


001356 


005376 
012774 
0012360 
001360 
001360 
001360 


005402 
177017 
001374 
001374 
001374 
001374 


C05402 
170777 
001422 
001422 


000026 


001360 
001360 


001356 
001356 


001360 
001360 


001374 
001374 


001422 
001422 


1 13 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 164 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


ROCYLA: MOV 
ISR 


RCYLD: Hoy 


PC, GSTAT 
HMR3, CYLADD 
MASK1, CYLADD 
CYLADD +RIGHT JUSTIFY 
CYLADD + CYL ADOR 
CYLADD ; INFO 
CYLADD 
PC 
;READ THE CYL DIFF/OFFSET iN H. AZ, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF' 
H. AZ, CYLDIF 
MASK1,CYLDIF ;CLEAR UNWANTED INFO 
CYLDIF ;RIGHT JUSTIFY 
CYLDIF 
CYLDIF 
CYLDIF 
CYLDIF. MASK ;CHK TO SEE IF RET IN COMPL. FORM 
1$ >BR IF NO 
 aeatad ;ELSE CLEAR 


18: RTS 


#2, RKMR1(RS) WORD 2 


: READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLADD' 


RCYLA: MOV 
B 


H. 82, CYLADD 

MASK1,CYLADD ~CLEAR UNWANTED INFO 
CYLADD /RIGHT JUSTIFY 
CYLADD 

CYLADD 

CYLADD 

PC 


; READ THE SECTOR COUNT IN H.B3. RIGHT JUSTIFY IT & STORE IT IN ‘SECTOR’ 


RSEC: nov 


H. B3. SECTOR 

# CCM. SECT>, SECTOR CLEAR UNWANTED INFO 
SECTOR ;RIGHT JUSTIFY 

SECTOR 

SECTOR 

SECTOR 

PC 


READ THE HEAD ADDR IN 4.83. RIGHT IT & STORE IT IN ‘HEADA’ 


RHEAD: MOV 
BIC 


H. B3. HEADA 

& CCM. HEAD>,HEADA ; CLEAR UNWANTED INFO 
HEADA RIGHT JUSTIFY IT 

~ 


;ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
ENTER WITH TIME IN SECONDS IN TEMP2 

;RETURN IF NOT FOUND 

:RETURN4+2 IF FOUND - SKIP OVER ERROR 


SEQ 0164 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


046222 
046230 
046236 
046242 
046250 
046252 
046256 
046260 
046264 
046266 
046270 
046274 


04627 

046304 
046312 
046316 
046324 
046326 
046332 
046334 
046336 
046342 


046344 
046346 
046350 
046354 
046356 
046364 
046370 
046374 
046400 
046404 
046410 
046416 
046422 


046426 
046432 
046434 
046440 


29-SEP-77 09: 55 


012737 
012765 
004737 
032737 
001007 
005337 
001367 
005337 
001356 
000207 
062716 
000207 


012737 
012765 
004737 
032737 
001004 
005337 
001367 
000207 
062716 
000207 


010046 


006337 


013720 
010110 
053710 
053710 


177777 005352 FHDHM: MoV 


000001 
045146 
000040 
005352 


005354 


000002 


000372 
000C01 
045146 
010000 


005352 


000002 


001462 


001420 
001424 
001424 
001424 
001424 
001424 
001426 
001430 
001430 


001362 


001424 
001430 


000026 
005342 


005352 
000026 


005342 


001424 


001430 


J 13 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 165 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


#-1, TEMP1 
MOV #1, RKMRICRS) 
JSR PC, GSTAT 
BIT ne 


BNE 

DEC TEMP 1 
BNE 1$ 

DEC TEMP2 
BNE F HDHM 
RTS PC 

2$: ADD #2, (SP) 

RTS 


;ALL 1°S 
;WORD 1 


+SKIP OVER ERROR 


; ROUT INE TO FIND LOAD HEADS IN RKMRZ WORD 1 BEFORE THE T!MEOUT 


+RETURN IF NOT FOUND 


s>RETURN+2 IF FOUND: SKIP OVER ERROR 


FLOAD: MOV #250. , TEMP 1 
MoV #1,RKMR1ICRS) 
1$: JSR PC, GSTAT 
BIT #D. LOAD, HMR2 
BNE 2$ 
DEC TEMP 1 
BNE 1$ 
RTS PC 
2S: ADD #2, (SP) 
RTS PC 


>FILL HEADER TABLE WITH 66 WORDS 
ENTER WITH CYL # IN ‘CALADD' 
;ENTER WITH HEAD # IN ‘HEAD’ 
ENTER WITH FORMAT IN ‘FORMAT* 


FHOTAB: MOV RO, -«SP) 
MoV Ri. -(SP) 
MOV #HOTAB, RO 
CLR R1 
MoV HEAD. HO1 
ASL H01 
ASL HD1 
ASL HD 1 
ASL HD1 
ASL HD 1 
MOV FORMAT, FMT1 
SWAB FMT1 
ASL FAT1 

1%: MOV CALADD, (RO)+ 


MoV Ri, (RO) 
BIS HD1, (RO) 
BIS FMT1. (RO) 


>;WORD 1 


SKIP OVER ERROR 


OF VALID HEADERS 


;SAV RO 

> SAV R1 

>HEADER WORD TABLE ADDP 
>;SECTOR COUNTER 


;SETUP HEAD # FOR WORD 2 OF HEADEP 


> SETUP FORMAT FOR WORD 2 OF HEADER 


>HEADER WORD 1-CYL ADOR 

+HEADER WORD 2-SECTOR NO 

; -HEAD NO 
-FORMAT 


SEQ 0165 


K 1 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 166 SEQ 0166 
DZR6GA. P11 29-SEP-77 09: 55 GET VALUE FOR SOFTWARE SWITCH REGISTER 


8725 046444 004737 046524 JSR PC, SECFLG 


RKO6-RKO7 DUAL PORT 


PL 29-SEP-77 


046450 
046456 
046462 
046470 
046474 
046502 


046506 
046510 
046514 


046516 
046520 
046522 


013737 
011037 
043737 
042037 
053737 
013720 


005201 
020127 
001344 


012601 
012600 
000207 


09: 55 


001362 005352 
005354 


001362 
005352 
005352 
005354 


000026 


MACY11 30(1046) 


DRIVE DIAGNOS 
} GET VALUE FOR SOFTWARE SWITCH REGISTER 


CALADD. TEMP 1 
CALADD. TENPZ 





29-SEP-77 10:08 PAGE 167 SEQ 0167 


+HEADER WORD 3-HEADER CHECK 


;SECTOR CTR 
;ALL 22 SECTORS DONE? (66 WORDS) 
;BR IF NO 


;RESTOR R1 
RESTOR RO 


; THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 
; TEST & SETS BITS 14 & 15 APPROPRIATLY. 


UNIBUS RKO6-RKO? DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


046524 
046526 
046532 


046534 
046540 
046544 


046550 
046554 
046560 


046564 
046566 


046570 
046572 


046574 


046576 
046602 
046604 
046606 


046610 
046614 
046616 
046622 


046624 
046630 
046632 
046634 


046636 
046640 


046642 
046644 
046650 


29-SEP-77 09: 55 


010246 
005737 
001016 


012702 
004737 
052710 


012702 
004737 
052710 


012602 
000207 


012602 
000207 


010346 


021227 
001002 
012603 
000207 


022237 
001403 
062702 
000765 


013703 
000303 
050103 
022203 


001401 
000756 


012603 
062716 
000207 


010046 
010146 
004737 
062737 


001426 


002306 
046574 
100000 
003306 


046574 
040000 


001362 
000002 


001420 


000004 


045622 
000001 001374 


M 13 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 168 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


SECFLG: MOV 
TST 


BNE 
+ NOTE: a 22 


1$: MOV 


R2, -(SP) +SAVE R2 
FORMAT 

1 ;BR IF 20 SECTOR FORMAT 
SECTOR PERFORMED 

#BSEZ2H+8. . RZ 


PC, FLGTST +GET HAROWARE DETECTED FLAG 
#B1T15, (RO) ;RETURN HERE IF GOOD SECTOR 


#BSE22S+8.,R2 ;ELSE RETURN HERE 


PC, FLGTST +GET SOFTWARE DETECTED FLAG 
#B1T14, (RO) RETURN HERE IF GOOD SECTOR 
emir ELSE RETURN HERE 

hla ;RESTORE R2 


; THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TABLES 


sENTER WITH THE 


ADDRESS OF TABLE (BSE22H, BSE22S, ETC.) IN TEMP! 


RETURN IF NO COMPARE 
+RETURN+4 IF COMPARE 


FLGTST: MOV 
1S: CMP 
BNE 
MOV 
RTS 


2S: CMP 
BEQ 


3s: MOV 


4S: MOV 


R3,-(SP) > SAVE R3 
(R2),#-1 +SEE IF ALL 1°S 
2$ BR IF NO 
(SP)+,R3 *>RESTORE R3 
PC 
(R2)+, CALADD ;SEE I1F=CYL # & ADR PTR TO TRK/SECTOR WORD 
3$ 
#2-R2 +GO TO NEXT CYL WORD IN TABi” 
1$ 
HEAD, R3 ;GET HEAD # FROM FHOTAB ROUTINE 
R3 
R1,R3 ADD SECTOR # FROM FHOTAB ROUTINE 
(R2)+,R3 SEE 1F SECTOR/HEAD COMPARE 
7&8 INCR PTR TO NEXT CYL WORD 
4$ *BR IF COMPARE 
1$ 7ELSE TRY NEXT CYL 
(SP)+.R3 *RESTORE R3 
#4, (SP) > INCREMENT RET ADDR 
Pc 


: THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
;WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 


SORT: MOV 


RO, -(SP) * SAVE RO 
Ri, -(SP) + SAVE R1 
PC, RDSEC 

#1, SECTOR 


SEQ 0168 


N 13 
UNIBUS RKO6-RKO7 DUAL > on DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:68 PAGE 169 SEQ 0169 


DZR6GA. P11 29-SEP-77 09: 55 GET VALUE FOR SOFTWARE SWITCH REGISTER 
sen 046670 004737 046760 JSR PC, MULT6 +MULT SECTOR BY 6 
8803 046674 012700 000204 MoV #132. ,R0 
8804 046700 163700 001374 SUB SECTOR, os +RO-SECTOR TO RO = INDEX 
8805 046704 010037 001374 MoV RO. SECTOR 
cent 046710 062737 001666 001374 ADD #RHTAB, SECTOR +> SAVE INDEX 
8808 046716 062700 001666 ADD #RHTAB, RO > INDEX TO BOT HALF OF RHTAB 
ory! 046722 012701 002072 MOV #SRTTAB, R1 > INDEX TO TOP HALF OF SRTTAB 
8811 046726 012021 i$: MOV (RO)+, (R1)+ +PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
8812 046730 020027 002072 CMP RO, #RHTAB+i32 
thy 046734 001374 BNE 1$ 
1 
8815 046736 012700 001666 MoV #RHTAB. RO ;PUT TOP OF RHTAB TO BOT OF SRTTAB 
8816 046742 012021 23: MoV (RO)+, (R1)+ 
8817 046744 020037 001374 CMP RO. SECTOR 
rode 046750 001374 BNE 23 
1 
8820 046752 012601 MoV (SP)+,R1 ;RESTOR Ri 
8821 046754 012600 MoV (SP)+,R0 >RESTOR RO 
8822 046756 000207 RTS FC 
8823 
8824 3 
oss ;MULT BY 6 ENTER WITH DESIRED # IN ‘SECTOR’ 
8827 046760 006337 001374 MUL Té: ASL SECTOR >2 X SECTOR 
8828 046764 013746 001374 MoV SECTOR, - (SP) 
8829 046770 006337 001374 ASL SECTOR >4 &% SECTOR 
8830 046774 062637 001374 ADD (SP )+, SECTOR >(4 X §$)4(2 X S) = 6&6 X SECTOR 
8831 047000 000207 RTS PC 
8832 
8833 ; 
8834 >; THIS ROUTINE IS ENTERED ONLY IF THERE !S A BSE ERROR AFTER A WRITE DATA 
8835 ;CMD. IT VERIFIES THAT Tee BAD SECTOR IS LISTED IN THE BSE INFORMATION 
8836 ;CYLINDER AT CYL 410, TRACK 2 
8837 ; 
8835S ;RETURN IF SECTOR NOT LISTED IN BSE TABLE. ERROR CONDITION. 
8839 ;RETURN#+2 IF LISTED, SKIP OVER ERROR 
8340 ; 
8841 047002 010446 TRUERR: MOV R4,-(SP) > SAVE RY 
8842 
8843 047004 032737 010000 2905314 BIT @CFMT. HCS1 ; CHECK FORMAT 
8844 047012 001014 BNE 3% >BR FOR 20 SECTOR FORMAT 
8845 ;ONLY 22 SECTOR FMT IN THIS PGM 
8846 ; 
8847 047014 012704 602306 MoV #3SE22H+8. . R4 
8848 047020 004737 047054 JSR PC. TERR1 >SEE IF ON HARDWARE DETECTED TABLE 
8849 047024 000407 BR 3$ sRETURN HERE IF YES 
8850 
8851 047026 012704 003306 MoV #BSE22S+8. .R4 ;ELSE RETURN HERE 
8852 047032 004737 047054 JSR PC, TERR >& SEE IF ON SOFTWARE DETECTED TABLE 
8853 047036 000402 BR 3$ >;RETURN HERE IF YES 
8854 
8855 047040 012604 1$. MoV (SP 34, R4 >RESTORE RY 


8856 047042 000207 RTS PC *RETURN WITHOUT JUMPING OVER ERPOP 


B 14 
UNIBUS RKO6-RKO7? DUAL PORT ORIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 170 SEQ 0170 
29-SEP-77 09: 55 


DZR6GA 


Pil 


047044 
047046 
047052 


047054 
047060 
047062 
047066 
047070 
047072 


047074 
047100 


047102 
047106 
047110 


047112 


047114 
047120 
047124 
047126 
047134 
047136 
047144 
047152 


047154 
047160 


047162 
047166 
047170 
047174 
047176 
047202 


012604 
062716 
000207 


021427 
001405 
022437 
001405 
005724 
000770 


062716 
000207 


022437 
001401 
000761 


000207 


005037 
005737 
001004 
012777 
000207 
012777 
012777 
000207 


005337 
000002 


005737 
001003 
005077 
000207 
005077 
000207 


000602 


177777 
005334 


000002 


005324 


001372 
005460 


000100 


177777 
000135 


001366 


005460 
132132 
132116 


132172 


132156 
132146 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


33: | MOV (SP)+,R4 sRESTORE R 
as aaa + SKIP OVER TERROR ON RETURN 


; THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST 
+ THE BSE TABLE FOR THE ABOVE SUBROLT INE. 

RETURN IF FOUND ON TABLE 

+RETURN+2 IF NOT FOUND 


TERRI: CMP (RY), #-1 ;SEE IF ALL 1'S 
BEQ 15 “BR IF YES, NOT ON TABLE 
CMP (RY) +, HDC SSEE IF CYL MATCH 
BEQ 25 :BR IF YES 
TST (RY) + SELSE ADV TO NEXT CYL WORD 
BR TERRI & TRY AGAIN 

15: ADD #2. (SP) 
RTS PC 

25. CMP (RY) +, HDA ;SEE IF SECTOR & TRACK MATCH 
BEQ 38 BR IF YES 
BR TERRI OR TRY AGAIN 

38. RTS PC 


SROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


CLKON: CLR TIMUP 
TST PCLKF 
BNE 1$ BRANCH IF P-CLOCK PRESENT 
MOV #100, dLKS +L-CLOCK, ENABLE INT 
RTS PC 

18: MOV #-1, dPKSB >P-CLOCK, ALL 1°S 
MOV #135, PKS ;ENABLE INT. CT UP, REP INT 
RTS PC *LINE FREQ & RUN 

>KWI1-L & KWi1-P INTERRUPT HANDLER 

CLOCK: DEC COUNT 


RTI 
“ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
CLKOF: TST PCLKF 


BNE 1$ ;BRACH IF P-CLOCK PRESENT 
CLR aLKS *L-CLOCK, CLEAR INTERRUPT 
RTS PC 

1%: CLR aPKS *P-CLOCK, CLEAR INTERRUPT 
RTS PC 
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ia + 'CLOCK' HANDLER DECREMENTS EVERY 1/760 SEC 
$995 947204 004737 047114 TMO: JSR PC, CLKON + TURN CLOCK ON 
8916 047210 005737 001366 1$: TST COUNT ; TIME UP? 
8917 ; BNE THO ;BR IF NO S9-SEP-77 
8918 047214 001375 BNE 1$ ; 29-SEP-77 
8919 047216 004737 047162 JSR PC, CLKOF ;ELSE, TURN CLOCK OFF 
8920 047222 000207 RTS PC 
8921 
8922 ; 
8923 » THIS ROUTINE GENERATES PRRITY FOR EXPECTED MESSAGES 
8924 ;ENTER WITH THE EXPECTED WORD IN TEMP1 
925 ; TEMP1 1S ROTATED LEFT 17 TIMES. EACH TIME THE CARRY BIT IS SET, 
$926 ;R1 1S INCREMENTED. AT THE END OF 17 ROTATES ( TEMP1 BACK TO ORIG), 
$927 ;R1 BIT O IS EXAMINED. IF IT 1S SET. INDICATING AN ODD # OF 1'S, 
$928 ; THE PARITY BIT IS NOT SET INB. 
8929 ;1F tT 1S NOT SET. INDICATING AN EVEN &# OF 1'S . THE PARITY BIT IS 
8930 >;SET IN TEMP1 
8931 ; 
8932 047224 010046 SBPAR: MOV RO. -(SP) + SAVE RO 
8933 047226 010146 MOV R1,-(SP) > SAVE R1 
8934 047230 012700 000021 MOV #17. -R0 ; SHIFT COUNTER 
8935 047234 005001 CLR R1 ; COUNT # OF 1°S IN TEMP1 
coer 047236 000241 CLC > CLEAR CARRY 
8938 047240 006137 005352 1S: ROL TEMP 1 
8939 047244 103001 BCC 2$ :>BR IF CARRY CLEAR 
8940 047246 005201 INC R1 ; COUNT # OF 1°S 
8941 047250 005300 25: DEC RO >; SHIFT COUNTER 
8942 047252 001372 BNE 19 
8943 
8944 047254 032701 000001 BIT #B1TO,R1 
8945 047260 001003 BNE 3$ /BR IF ODD & IN RO 
8946 047262 052737 100000 9005352 BIS #M. PAR, TEMP 1 >SET PARITY BIT | 
8947 047270 012601 3S: Moy (SP)+,R1 ;RESTORE P1 
8948 047272 012600 MoV (SP)+,P0 >RESTORE RO 
8949 047274 000207 RTS PC 
8950 
8951 ; 
8952 ;ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS 
8953 >; WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE 
8954 > IE: MY LOOP MACRO 
8955 ; 
8956 047276 032777 001000 131634 SCOP1$: BIT #SW9, dSHR >LOOP ON ERROR? 
8957 047304 001406 BEQ 1$ >BR IF No 
8958 047306 105737 001103 TSTB SERFLG >;HAD ERROR? 
8959 047312 001403 BEG 13 :BR .F NO 
8960 047314 013716 001110 MOV SLPERR. (SP) 
sy. 047320 000002 RTI 
6 
8963 047322 011637 001110 1$ MoV (SP), SLPERR ;SET LOOP ADDR FOP TIGHT SCOPE LOOP 


047326 000002 


UNI BUS 


D2R6GA. 


RKO6G-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


Pil 


047330 


047332 
047336 


047340 
O47 344 
047346 
047352 
047354 
047360 
047362 
047366 


047266 
047372 


047374 
047402 
047406 


047410 
047416 
047422 


047424 


047430 
0474 34 
0474 36 


047442 
047450 
047456 
047464 
047472 
047476 


047500 


047536 


047540 
047546 


022626 


004737 
104024 


005737 
001431 
005737 
001403 
104401 
000402 
104401 


004737 
104924 


012737 
004737 
104121 


013737 
004737 
104074 


005037 


005737 
001520 
005237 


012765 


104124 


012765 
004737 
032737 
001001 
104070 
013737 
004737 
104055 


012765 
013765 


045534 


005276 
000042 
056712 
056760 


045534 


000011 
043372 


00140. 
044006 


005276 


005300 
005302 
100000 


000013 
043372 


000001 
045146 
020000 


001400 
044006 


100000 
001222 


N05214 


NOS354 


000000 
000010 
000010 
005314 


N00026 
005342 


005354 


000000 
000010 


MACY11 30(1046) 


D 14 
29-SEP-77 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


; THIS ROUTINE IS ENTERED BY TYP!NG A CONTROL-C. 


+1T 1S USED TO ALLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING 
—a— ARE LOADED & FORMATTING 1S VALID BEFORE ACTUALLY HALTING 
U 


> THE 


STOP: 


64S: 


CMP 


(SP)+, (SP)+ 
PC. SUBCLR 
24 


Pi, SUBCLR 
24 


#SRTSPL.HCS1 
PC, DOCMD 
121 


T100, TEMP2 
PC.FATTI 
74 


UNLO 


BADHDR 
4$ 
HPEND 


RCCLR, RKCSICRS) 
SUNIT, RKCS2(R5) 
UNI TB, RKCS2(R5) 
#RECAL. HCS1 

PC, DOCND 

124 


#1,RKMR1CRS) 
Pc, GSTAT 

#D. RTZ, HMR2 
64S 

70 

T10, TEMPZ 
PC, FATTI 

55 


#CCLR,RKCSICRS) 
SUNIT, RKCS2(R5) 


RESTORE STACK FROM INTERRUPT 


+CERR AFTER 
+ IF _ UNLOADED 
; SEE iF MANUAL OR AUTO MODE 
BR IF MANUAL MODE 
;PGM ABORT PENDING 


>HALT PENDING 


*CERR AFTER SCLR 
;DO START SPINDLE CMD & GET CONTR RDY 
>RDY NOT SET AFTER ST SPIN CMD 

SETUP TIMEOUT 


*F IND ATTN 
>NO ATTN AFTER ST SPIN CMD 


>SEE IF HEADERS VALID 
;BR iF YES 


;ADD i iF ON PORT B 


*DO RECAL CMD & GET CONTP ROY 
>RDY NOT SET AFTER RECAL CMD 


>SELECT WORD 1 


;RTZ NOT SET DURING PECAL CMO 
; SETUP TIMEOUT 
>F IND ATTN 

;NO ATTN AFTER RECAL CMO 


/ DP IVES 


10:08 PAGE 172 


SEQ 0172 


UNI BUS 
DZR6GA. 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


Pil 


047554 
047562 
047570 
047574 
047576 
047602 
047604 
047606 


047606 
047614 
047620 
047626 
047634 
047640 
047646 


047654 
047660 
047662 
047664 
047666 
047670 


047672 


047676 
047702 
047704 
047710 
047714 
047720 


047724 
047730 
047732 
047736 


047736 
047740 
047742 
047750 
047752 
047756 


047760 
047762 


29-SEP-7 
063765 


104154 


012737 


012737 


004737 
000003 
104033 
104034 
104935 
104036 


000137 


005737 
001410 
104401 
005037 
005037 
000137 


104401 
000000 
000137 


011600 
005740 
032777 
001005 
104401 
010046 


104403 
006 


7 09: 55 


005464 
000005 
043372 


043750 


010340 
005406 
001720 
000001 
005414 
000002 
000003 


044274 


047736 
000042 
057015 
042732 
001176 
042704 
057037 


010646 


020000 
057217 


000010 
005314 


005404 


005410 
005412 


005416 
005422 


131170 


655: 


4S 


55 


FORM: 
_SBTTL 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


UNITB, Ay? pia ;ADD 1 IF ON PORT B 


#CLEAR.H 

PC, DOCND DO ORIVE CLEAR CMD & GET CONTR RDY 

151 +NO RDY AFTER DRIVE CLEAR CMD 

ON te + TEST FOR ATTN 

154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMO 


#<D. ORA!'D. SPIN'D. DRDY'D. V¥>.E. AO -;EXPECTED MSG AD 

E. 80 EXPECTED MSG BO 

#<0. + te CART! 0. sagt BRHM'D. SSP>.E.A1 ;EXPECTED Al 
MSG ID FOR i MSG B1 


E. ; 


E. AZ EXPECTED MSG A 

#2,€. 82 ;MSG ID FOR EXPECTED MSG 82 
#3,€.B3 *MSG 10 FOR EXPECTED MSG B3 

PC, CHKMSG CHECK MSGS AO, BO. Al. Bi 

T AZ!T. B2!0 +& MSGS SPECIFIED HERE 
33 +MSG AO ERROR AFTER ORV CLEAR CMO 
34 *MSH BO ERROR 

35 MSG Al ERROR 

36 *MSG B1 ERROR 

FORM /WRITE VALID FORMATS 

42 SEE 1F MANUAL OR AUTO MODE 

5$ >BR IF MANUAL MODE 

»MSG76 ;PGM ABORTED 

SEOPCT ;SET UP EOP TO EXIT TO MONITOR 
SESCAPE 

SEOP 1 ; ABORT PGM 

»MSG77 :CPU HALTED 

STs >START QVEP IF CONTINUE PRESSED 


UNEXPECTED TIMEOUT HANDLER 


THIS ROUTINE IS ENTERED IF THERE 1S 

. NON EXISTANT MEMORY (NO SSYN? 
B. BOUNORY ERROR 

C. STACK OVERFLOW 


BADTNMO: 


(SP), RO ;SAVE PC WHERE TIMEOUT OCCUPRPED 
- (RO) ;GET PC BEFORE UPDATE 
#SW13, dSWR ; INHIBIT ERR TYPOUT? 
1$ YES. DON'T TYPE 
» EN ; ABORT TESTS, UNEXP T 0. @ PC= 
RG. - (SP) >; SAVE RO FOR TYPEOUT 
-2 TYPE PC 
>:GOQ TYPE--OCTAL ASC!) 
6 >; TYPE 6 DIGIT(S) 


SEQ 0173 


UN|BUS 
ODZR6GA. 
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Pil 


047763 
047764 
047772 
047774 
047776 


050002 
050010 
050012 


050014 


050016 
050020 


050024 
050032 
050036 
050040 
050044 
050052 
050054 


050056 
050062 


050066 
050070 
050072 
050074 
050076 
050100 
050: 04 


050106 
050110 
050111 
050112 
050114 
05011€ 
050120 


050122 


29-SEP-7 


000 
032777 
001403 
022626 
000177 


032777 
001401 
000002 


000000 


022626 
000137 


012737 
011637 
104017 
005037 
032777 
001001 
000002 


012706 
000177 


000240 
000240 
000240 
011600 
005740 
104401 
010046 


104403 


012737 


7 09: 55 


001000 


131104 
040000 


042704 


050040 
001334 


001176 
001000 


001100 
131022 


056167 


050134 


UNEXPECTED TIMEOUT HANDLER 


.BYTE O ;, SUPPRESS —_ ZEROS 
131146 15: BIT #SW9, aSHR ;LOOP ON ERROR 
BEQ 23 ;NO, BRANCH 
CMP (SP)+, (SP)+ YES, RESTORE STACK 
JMP aSLPADR ;GO TO STARTING ADOR OF TEST 
; THAT GAVE BAD TIMEOUT 
131130 2%: BIT #SW14, dSWR ;LOOP ON TEST? 
BEQ 3$ ;NC BRANCH 
RTI + YES 
35: HALT ; UNEXPECTED TIME OUT OCCURRED 


+AS INDICATED. YOU CAN LOOP ON 
ERROR, LOOP ON TEST OR INHIBIT 
ERROR TYPEOUT BY SETTING THOSE 


; SWITCHES. 

CMP (SP )+, (SP)+ >RESTORE STACK 
JMP SEOP1 ; ABORT TESTS 

.SBTTL MEMORY CHECK ENABLE TRAP 

001176 MEMERR: MOV #15, SESCAPE 

MoV (SP), TRAPPC ; STORE PC 
ERROR 17 ; UNEXP MEM PARITY TRAP 

18: CLR SESCAPE 

131066 BIT #SW9, aSHR >; CHECK IF LOOP ON ERROR 

BNE 2$ > YES, FORCE STACK AND TRY AGAIN 
RTI ;ELSE RETURN 

2s. MOV #STACK, SP ; INIT STACK 
JMP OSLPERR ;LOOP ON ERROR 

SBTTL RKOG INTERRUPT HANDLER 

INTER: NOP 
NOP 
NOP 
MoV (SP),RO ;SAVE PC WHERE INT OCCURRED. 
TST - (RO) ;GET PC BEFORE UPDATE 
TYPE -MSG6 > INT AT PC= 
MOV RO. -(SP) ;;SAVE RO FOR TYPEOUT 

2 TYPE PC 

TYPOS ,;GO TYPE--OCTAL ASCII 
BYTE 6 >, TYPE 6 DIGIT(S) 
. BYTE 0 ;; SUPPRESS LEADING ZEROS 
HALT 
NOP 
NOP 
RTI 


_SBTTL POWER DOWN AND UP ROUTINES 
>POWER DOWN ROUTINE 
N00024 SPWRON: MOV RSPHRUP-PWRVEC <>SET UP? VECTOR 


—— + 71 


SEQ 0174 


UNI BUS 
DZR6GA 


913? 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


Pil 


050130 
050132 


050134 
050140 
050144 
050146 
050154 
050162 
050170 
050174 
050200 
050202 


050206 


050210 


050300 


050302 
050304 
050306 
050310 
050312 


29-SEP-77 09: 55 


000000 
000776 


005037 
005237 
001375 
012737 
012737 
012737 
012706 
104401 
000005 
000137 


00c000 


012746 
010446 
010546 
005466 
005416 
005666 
061601 
005500 
066600 
103445 
005046 
006103 
006102 
006101 
006100 
005716 
001410 
005016 
066601 
005500 
005516 
066600 
000404 


060501 
005500 
005516 
060400 
005516 


050206 
050206 


050122 
000340 
000340 
001100 
056336 


013004 


000040 


000002 
000002 


900002 


000002 


000004 


000024 
000026 
000036 


HALT 
BR 


a 


POWER UP ROUTINE 


SPWRUP: CLR 
1$: INC 


SPWRCT: 0 


SPWRCT 
SPWRCT 


1$ 

#SPWRON, PHRVEC 
#PR7, PHRVEC+2 
#PR7, TRAPVEC+2 


#STACK, SP 
,MSG11 


PFSRT 


[DIVISION UTILITY ROUTINE 
> RO-R1-R2-R3=D1VIDEND 


+R4-R5=D1V1ISOR 


7;RO-R1i=REMAINDER AFTER DIVISION 
>R2-R3=QUOTIENT AFTER DIVISION 
ENTER WITH JSR PC.M. OP ID 


“1 DPID: MoV 
MoV 


M. OP4O: ROL 


M. OP41: ADD 


M. DP42: ADC 


#40, -(SP) 


asP 
2(SP),R1 
RO 
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POWER DOWN AND UP ROUTINES 


+HANG UP. 


;WAIT LOOP FOR TTY 
;WAIT FOR THE INCR 


+OF WORD 
+ SET POWER DOWN VECTOR 
PRIORITY 7 

;LOCKOUT ALL INTERRUPTS FOR TRAPS 
+ INITIALIZE STACK 

REPORT POWER FAIL 


»WAIT COUNT FOR TTY 


;COUNTER FOR DIVISION CYCLES 
>HI ORDER 

;LO ORDER TO THE STACK 

; FORM NEGATIVE 

> VERSION OF DIVISOR 


>PERFORM INIT SUBT. 


> 1F CARRY THEN OVERFLOW HAS OCCURRED 
> THIS 1S A LONGER LASTING CARRY BIT 


TEST CARRY INDICATOR 
> 1F TO CARRY THEN ADD. ELSE SUBT 
*CLEAR UP FOR NEXT TIME 


:ADD -(DIVISOR) 
> SET CARRY 


>ADD +(DIVISOP >} 
> SET CARRY 


> SET CARRY 


SEO vi7s 


UNI BUS Te RKO? DUAL PORT DRIVE wspeontagg 
DZ2R6GA. P11 


050314 


050342 


050344 
050346 
050352 
050354 


050356 
OSOle2 
OSC 3e4 


29-SEP-77 09: 55 


005716 


000241 


00€103 
062706 
000242 
000207 


062 706 


000006 


000010 


000006 


M. OP 44: 


M. OP So: 


MACY11 30(1046) 
POWER DOWN AND UP ROUTINES 


H 14 
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; TEST THE UPDATE INDICATOR 
+ 1F O, FORGET IT 

+NO CARRY POSSIBLE HERE 
;DECREMENT CTR 

*>BR IF MORE TO DO 


;ADJUST STACK BY 4 WORDS 


SEQ 0176 


UN 'BUS 
DZR6GA 
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Pil 


OS07366 
050366 
050370 
050376 


350400 


050402 
050406 
050414 
050420 
050424 


104407 
032777 
001114 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127737 
001465 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 


040000 


000004 
0504 26 
177060 
no0004 


000004 


000400 
130466 
001103 
001115 
001000 
001110 


001103 
001174 


004000 
001216 


001104 
001174 


000001 
050644 
001102 
001102 


130542 


NO0004 


130474 
001102 


001103 
130436 
001106 


130404 


001104 


001104 
001174 


001214 


SCOPE HANDLER ROUTINE 
.SBTTL SCOPE HANDLER ROUTINE 


+s RERAAAAAARAAAAA AAA AAAS AAA AAT AA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
+¥THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

+ *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: 0>) 
+*¥AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 

+4THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


> kSW1421 LOOP ON TEST 
> *SW11=1 INHIBIT ITERATIONS 
; XSWO9=1 LOOP ON ERROR 
, ¥SWO8=1 LOOP ON TEST IN SWR<7: O> 
> *CALL 
;x SCOPE +; SCOPE=I0T 
SSCOPE: 
CKSUWR 3; TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14, dSWR ;;LOOP ON PRESENT TEST? 


BNE SOVER ++YES IF SWi4=1 
;RRRRASTART OF CODE FOR THE XOR TESTER#HRHR 
SXTSTR: BR 6$ ++ 1F RUNNING ON THE "XOR" TESTER CHANGE 
++ THIS INSTRUCTION TO A "NOP" (NOP=240) 
MOV ORERRVEC.-(SP) +; SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #59, DHERRVEC ++SET FOR TIMEOUT 


TST #177060 ++ TIME OUT ON XOR? 
Mov (SP)+,@#ERRVEC =; RESTORE THE ERROR VECTOR 
BR S$SVLAD +-GO TO THE NEXT TEST 
5S. CMP (SP)+, (SP)+ 7>;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,@#ERRVEC +; RESTORE THE ERROR VECTOR 


BR 7$ +;LOOP ON THE PRESENT TEST 
6S: -RRRRREND OF CODE FOR THE XOR TESTERRRHRE 
BiT #B1TO8, dSHR fy Fae TEST? 


BEQ 2$ *BR IF 
CMPB OSWR, STSTNM ON THE RIGHT TEST? SWR<?7: O> 
BEQ SOVER BR 1F YES 

2$ TST8 SERFLG 


a, * ERROR OCCURRED? 
;;BR NO 


BEQ 35 : 
CnPB SERMAX, SERFLG A, * epnons FOR THIS TEST OCCURRED? 
BHI 3% ;;BR iF NO 
BIT #B81TO09. dSWR ;LOOP ON ERROR? 
BEQ 4§ CBR 1F NO 
75: MoV SLPERR, SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
BR SOVER 
us: CLRB SERFLG +: ZERO THE ERROR FLAG 
CLR STIMES >;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ;;ESCAPE TO THE NEXT TEST 
38: BIT #BiTii, aSWR >; INHIBIT ITERATIONS? 
BNE 13 >;BR IF YES 
TST SPASS >; 1F FIRST PASS OF PROGRAM 
BEQ 1$ 4 INHIBIT ITERATIONS 
INC SICNT + INCREMENT ITERATION COUNT 
CMP STIMES. SICNT ; CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER > BR IF MORE ITERATION REQUIRED 
1$: MOV #1, S1CNT ;;REINITIALIZE THE ITERATION COUNTEP 


MOV SMXCNT.STIMES ;;SET NUMBER OF ITERATIONS TO 00 
S$SVLAD: INCB STSTNM +; COUNT TEST NUMBERS 
MOVB STSTNM.STESTN :;SET TEST NUMBER IN APT MAILBOX 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


DZR6GA. 


9270 
9271 
9272 


Pil 


050606 
050612 


050644 


050646 


051026 


011637 


003720 


104407 
105237 
001775 
013777 
032777 
001402 
104401 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104401 


122737 
001007 


013716 


001106 
001110 
001176 
000001 
001102 
001106 


001103 


001102 
002000 


001200 
001112 
001116 
000002 
130174 
020000 


066736 
001205 


000001 


001114 
051572 


130142 


001000 


001110 
001176 


001176 


001115 
130304 


130256 
130246 


001116 
001114 
130206 


001230 
050766 


130126 


MACY11 30(1046) 


SCOPE HANDLER ROUTINE 


SOVER: 


SMXCNT: 


(SP), SLPAOR 
(SP), SLPERR 
SESCAPE 

#1, SERMAX 


STSTNM, a01SPLAY 


SLPADR, (SP) 


2000. 
.SBTTL ERROR HANDLER ROUTINE 


1s REXAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA A EAS 
;RTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;KSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO TYPERR ON ERROR 
;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


> kSW15=1 
> kSW1321 
> ¥SW10=1 
; X¥SWO9=1 
> *CALL 
Pe | 
SERROR: 
7S: 


20S: 


4§ 


HALT ON ERROR 


J 14 
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++ SAVE SCOPE LOOP ADDRESS 

+; SAVE ERROR LOOP ADDRESS 

+; CLEAR THE ESCAPE FROM ERROR ADDRESS 
3; ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
+; DISPLAY TEST NUMBER 

++ FUDGE RETURN ADDRESS 


sFIXES PS 
;;MAX. NUMBER OF ITERATIONS 


INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 


N ++ ERROR=EMT AND N=ERROR ITEM NUMBER 


SERFLG 
7$ 


STSTNM, DISPLAY 


#B1T10, dSWR 


(SP), SERRPC 
#2, SERRPC 


JSERRPC, $1 TEMB 


#B1T13, OSWR 
208 

PC, TYPERR 

» SCRLF 


RAP TENV, SENY 
2$ 

SITEMB. 218 
PC, SATYY 

0 

0 

228 


O5KR 
3$ 


#B1TO9. dSWR 
4§ 


oLPERR. (SP) 
SESCAPE 


5$ 
SESCAPE. (SP) 


;; TEST FOR CHANGE IN SOF T-SWR 

>;SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 
;;DISPLAY TEST NUMBER AND ERROR FLAG 
;>;BELL ON ERROR? 

>;NO - SKIP 

>;>RING BELL 

; COUNT THE NUMBER OF ERRORS 

;;GET ADDRESS OF ERROR INSTRUCTION 


;;STRIP AND SAVE THE ERROR ITEM CODE 
++SKIP TYPEOUT IF SET 

>SKIP TYPEOUTS 

:: GO TO USER ERROR ROUTINE 


. 


»- 


>;RUNNING IN APT MODE 

>;NO, SKIP APT ERROR REPORT 

>;SET 1 TEM NUMBE® AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;HALT ON ERROR 

3; SKIP IF CONTINUE 

;;HALT ON ERROR! 

;; TEST FOR CHANGE IN SOF T-SWR 
;;LOOP ON ERROR SWITCH SET? 
;;BR IF NO 

>; FUDGE RETURN FOR LOOPING 

;; CHECK FOR AN ESCAPE ADDRESS 
;;BR IF NONE 

>; FUDGE RETURN ADDRESS FOP ESCAPE 


SEQ 0178 


K 14 
UNIBUS RKO6-RKO7? DUAL PORT ORIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 179 SEQ 0179 
DZR6GA. P11 29-SEP-77 09: 55 ERROR HANDLER ROUTINE 


9326 051032 5S: 

9327 051032 022737 042772 000042 CMP #SENDAD, 0842 7+ ACT-11 AUTO-ACCEPT? 

9328 051040 001001 BNE 6$ +; BRANCH IF NO 

9329 051042 000000 HALT +7 YES 

9330 051044 63: 

9331 051044 9000002 RTI ++RETURN 

et .SBTTL TYPE ROUTINE 

9334 5s MXXKAAAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
9335 ;KXROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O i? 
9336 THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
9337 ; KNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 
9338 ; KNOTE2: SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
i + tees SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

9341 ; SCALL 

9342 ae USING A TRAP INSTRUCTION 

9343 TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
9344 oR 

9345 TYPE 

9346 + ME SADR 

9347 ;x 

9348 

9349 051046 105737 001157 STYPE: TSTB ST°FLG 3; 1S THERE A TERMINAL? 

9350 051052 100002 BPL 1$ ;;BR IF YES 

9351 051054 000000 HAL T ;,HALT HERE IF NO TERMINAL 

9352 051056 000430 BR 3$ ;; LEAVE 

9353 051060 010046 1$: MOV RO, - (SP) >; SAVE RO 

9354 051062 017600 000002 MOV a2(SP),RO +;GET ADDRESS OF ASCIZ STRING 

9355 051066 122737 000001 001230 CMPB #APTENV, SENV ;; RUNNING IN APT MODE 

9356 051074 001011 BNE 62$ ;;NO,GO CHECK FOR APT CONSOLE 

9357 051076 132737 000100 9001231 BITB #APTSPOOL, SENVM ;; SPOOL MESSAGE TO APT 

9358 051104 001405 BEG 62$ ++NO,GO CHECK FOR CONSOLE 

9359 051106 010037 051116 MOV RO.61$ +; SETUP MESSAGE ADDRESS FOR APT 

9360 051112 004737 051562 JSR PC, SATY3 >; SPOOL MESSAGE TO APT 

9361 051116 000000 614: .WORD O ;;>MESSAGE ADDRESS 

9362 051120 132737 OOO04O 001231 62%: BITB #APTCSUP,SENVM ;; APT CONSOLE SUPPRESSED 

9363 051126 001003 BNE 60% 3; YES, SKIP TYPE OUT 

9364 051130 112046 25: MOVB (RO)+, -(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
9365 051132 001005 BNE 4s ;;BR IF IT ISN'T THE TERMINATOR 

9366 051134 005726 TST (SP)+ 3; 1F TERMINATOR POP IT OFF THE STACK 
9367 051136 012600 60S: MOV (SP)+,R0 ;; RESTORE RO 

9368 051140 062716 000002 34: ADD #2, (SP) ;;ADJUST RETURN PC 

9369 051144 000002 RTI >, RETURN 

9370 051146 122716 000011 4S: CMPB #HT, (SP) >; BRANCH IF <HT> 

9371 051152 001430 BEQ 8S 

9372 051154 122716 000200 CMPB @CRLF, (SP) >; BRANCH IF NOT <CRLF> 

9373 051160 001006 BNE 5$ 

9374 051162 005726 TST (SP )+ ;;POP <CR><LF> EQUIV 

9375 051164 104401 TYPE >; TYPE A CR AND LF 

9376 051166 001205 SCRLF 

9377 051170 105037 051324 CLRB SCHARCNT >; CLEAR CHARACTER COUNT 

9378 051174 000755 BR 23 ;,GET NEXT CHARACTER 

9379 051176 004737 051260 5S: JSR PC, STYPEC ;;GO TYPE THIS CHARACTER 

9380 051202 123726 00115¢ 6S. CMPB GFILLC, (SP)+ ;;1S tT TIME FOR FILLER CHARS. ? 


9381 051206 001350 BNE 28 77 1F NO GO GET NEXT CHAR 





UNIBUS RKO6-RKO? DUAL PORT DRIVE van + * 


DZROGA. P11 29-SEP-77 05: 55 TYP 
otet 051210 013746 001154 MOV 
9384 051214 105366 000001 7$: DECB 
9385 051220 002770 BLT 
9386 051222 004737 051260 JSR 
9387 051226 105337 051324 DECB 
9388 051232 000770 BR 
9389 
bree HORIZONTAL TAB 
9392 051234 112716 O00040 8$: MOVs 
9393 051240 004737 051260 9$: JSR 
9394 051244 132737 000007 051324 BiTB 
9395 051252 001372 BNE 
9396 051254 005726 TST 
9397 051256 000724 BR 
9398 051260 105777 127664 STYPEC: TSTB 
9399 051264 100375 BPL 
9400 051266 116677 QO00002 127656 MOVB 
9401 051274 122766 000015 000002 CMPB 
9402 051302 001003 BNE 
9403 051304 105037 051324 CLRB 
9404 051310 000406 BR 
9405 051312 122766 000012 000002 1%: CMPB 
9406 051320 001402 BEQ 
9407 051322 105227 INCB 
9408 051324 000000 SCHARCNT: . WORD 
9409 051326 000207 STYPEX: RTS 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 > #CALL 
9420 /* MOV 
9421 re TYPOS 
9422 
9423 051330 STYPOS: 
9424 051330 010046 MoV 
9425 051332 010146 MoV 
9426 051334 010246 MOV 
9427 051336 010346 MOV 
9428 051340 010546 Mov 
9429 051342 012746 020200 MOV 
9430 051346 016605 000020 MOV 
9431 051352 100004 BPL 
9432 051354 005405 NEG 
9433 051356 112766 000055 000001 MOVB 
9434 051364 005000 1$: CLR 
9435 051366 012703 051544 MOV 
9436 051372 112723 000040 MOVB 
9437 051376 005002 2$ CLR 


MACY11 30(1046) 
OUT INE 


SNULL, - (SP) 
1(SP) 


6$ 
PC, STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


#' . (SP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 
23 


aSTPS 
STYPEC 
2(SP), dSTPB 
#CR, 2(SP) 
1$ 


SCHARCNT 
STYPEX 
#LF.2(SP) 
STYPEX 
(PC)+ 

0 

PC 


L 14 
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++GET # OF FILLER CHARS. NEEDED 
++AND THE NULL CHAR. 
+>D0ES A NULL NEED TO BE TYPED? 


+7BR IF “¥y ed THE NULL OFF OF STACK 
+;GO TYPE A 
te A NOT COUNT fs A COUNT 


;;REPLACE TAB WITH SPACE 
7; TYPE A SPACE 

;;BRANCH IF NOT AT 

++ TRB STOP 

++POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


+;LOAD CHAR TO BE TYPED INTO DATA REG. 
++ 1S CHARACTER A CARRIAGE RETURN? 
++BRANCH IF NO 

oo CHARACTER COUNT 


+: 1S CHARACTER A LINE FEED? 
+;BRANCH IF YES 

+;COUNT THE CHARACTER 

+; CHARACTER COUNT STORAGE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


js MRMAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA TAA AAA AAA AAA EAS 
;¥THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

+ *SIGNEO DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*¥NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

; REPLACED WITH SPACES. 


NUM, = (SP ) 


RO, -(SP) 
R1,-(SP) 
R2,-(SP) 
R3,- (SP) 

R5, -(SP) 
#20200. -(SP) 
20(SP),RS 

1$ 

RS 

#'-, TCSP) 


RO 
#SDBLK, RZ 
#' ,(R3)+ 
RZ 


;;PUT THE BINARY NUMBER ON THE STACK 
*+GO TO THE ROUTINE 


;;PUSH RO ON STACK 

++PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;>,PUSH R3 ON STACK 

;;PUSH RS ON STACK 

>; SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 

>-BR IF INPUT IS POS. 

>; MAKE THE BINARY NUMBER POS. 
>; MAKE THE ASCI! NUMBER NEG 
+; ZERO THE CONSTANTS INDEX 
>, SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
>;CLEAR THE BCD NUMBER 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE vgtnetnee *™ 


MACY11 30(1046) 


M14 
29-SEP-77 
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++GET THE CONSTANT 

;;FORM THIS BCD DIGIT 

+7 BR IF DONE 

7; INCREASE THE BCD CIGIT BY 1 


++ADD BACK THE CONSTANT 

+; CHECK IF BCD DIGIT=0 
++FALL THROUGH IF 0 

+e STILL = 2g LEADING O'S? 


7;BR IF NO 
7; YES--SET THE SIGN 
;;MAKE THE BCD DIGIT ASCII 


;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 


++ JUST INCREMENTING 
++CHECK THE TABLE INDEX 
++G0 DO THE NEXT DIGIT 


L 
++GO CHANGE TO ASCII 


++WAS THE LSD THE FIRST NON-ZERO? 


77BR IF NO 


+; YES--SET THE SIGN FOR TYPING 


++SET THE TERMINATOR 
+;POP STACK INTO R5 
+;POP STACK INTO R3 
>;POP STACK INTO R2 
+POP STACK INTO R1 
+-POP STACK INTO RO 
;;NOM TYPE THE NUMBEP 
;;ADJUST THE STACK 


>;RETURN TO USER 


s i SESBSESELSSSSSSSEETETLSE SESS SS SASS AST TSLT SESS SSNS SSeS hss Aes 
B G 


>TO REPORT FATAL ERROR 
;;70 TYPE A MESSAGE 


;;TO ONLY REPORT FATAL ERROP 
;;PUSH RO ON STACK 

+; PUSH R1 ON STACK 

+; SHOULD TYPE A MESSAGE? 


;; IF NOT: BR 
OPERATING UNDER APT? 


DZROGA. P11 29-SEP-77 09: 55 VERT BINARY TO DECIMAL AND TYPE ROUTINE 
9438 051400 016001 051534 MOV SOTEL(RO).R1 
9439 051404 160105 35: SUB Ri, 

9440 051406 002402 BLT 4§ 

9441 051410 005202 INC R2 

9442 051412 000774 BR 3$ 

9443 051414 060105 4$: ADD R1,R5 

9444 051416 005702 TST 2 

9445 051420 001002 BNE 5$ 

9446 051422 105716 TSTB (SP) 

9447 051424 100407 BMI 7$ 

9448 051426 106316 5S: ASLB (SP) 

9449 051430 103003 BCC 6$ 

9450 051432 116663 000001 177777 MOVB 1(SP),-10R3) 
9451 051440 052702 000060 6$: BIS #'0,R2 
9452 051444 052702. 000040 7$: BIS #' ,R2 
9453 051450 110223 MOVB RZ, (R3)+ 
9454 051452 005720 TST (RO)+ 
9455 051454 020027 000010 CMP RO, #10 
9456 051460 002746 BLT 2$ 

9457 051462 003002 BGT 8$ 

9458 051464 C10502 MOV R5,R2 
9459 051466 000764 BR 6$ 

9460 051470 105726 8$: TSTB (SP)+ 

9461 051472 100003 BPL 98 

9462 051474 116663 177777 177776 MOVB -1(SP),-20R3) 
9463 051502 105013 9S: CLRB (R3) 

9464 051504 012605 MOV (SP)+,R5 
9465 051506 012603 MoV (SP)+,R3 
9466 051510 012602 MOV (SP)+,R2 
9467 051512 012601 MOV (SP)4+,R1 
9468 051514 012600 MOV (SP)+,RO 
9469 051516 104401 051544 TYPE , SOBLK 
9470 051522 016666 000002 900004 MOV 2(SP),4 (SP) 
9471 051530 012616 MOV (SP)+, (SP) 
9472 051532 000002 RTI 

9473 051534 023420 SOTBL: 10000 

9474 051536 001750 1000. 

9475 051540 000144 100. 

9476 051542 000012 10. 

9477 051544 000004 SOBLK: .BLKW 

9478 .SBTTL APT COMMUNICATIONS ROUTINE 
9479 

9480 

9481 051554 112737 000001 052020 SATY1: MOV #1. SFFL 
9482 051562 112737 000001 052016 SATYS, MOVB #1, SMFLG 
9483 051570 000403 BR SATYC 

9484 051572 112737 ©C00001 052020 SATY4: MOVB #1, SFFLG 
9485 051600 SATYC: 

9486 051600 010046 MOV RO, -(SP) 
9487 051602 010146 Mov Ri, -(SP) 
9488 051604 105737 052016 TSTB SMFLG 
9489 051610 001450 BEQ 5$ 

9490 051612 122737 000001 901230 CMPB #APTENV, SENV 
9491 051620 001031 BNE 

9492 051622 132737 000100 001231 BITB 

9493 051630 001425 BEQ 


3$ BR 
#APTSPOOL. me +; SHOULD SPOOL MESSAGES? 
3$ 1F NOT: BR 


; 


SEQ 0181 


UN | BUS 
DZR6GA. 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 


Pil 
051632 


052017 
052020 


017600 


000000 
105737 


001416 
005737 


000040 


09: 55 
000004 
000002 
001210 


001224 


001224 


- 001226 


000004 


000004 
000002 
177776 
051046 


052620 
001230 
001210 


000004 
000002 
001210 
052020 
052017 
052016 


000004 


001210 


051730 
000004 


001212 
000004 


MACY11 30(1046) 


APT COMMUNICATIONS ROUTINE 


23: TSTB 


115: 


12S: 


SMF LG: 
SLFLG: 
SFFLG: 


APTS1ZE=200 
AP TENV=001 

AP TSPOOL=100 
AP TCSUP=040 


04 (SP), RO 
#2,4(SP) 
—" 


1 
RO. SMHSGAD 
(RO)+ 


2$ 
SMSGAD, RO 
RO 


RO. $MSGLGT 
#4, SMSGTYPE 


5$ 

04 (SP), 4S 
#2, 4 (SP) 
177776, - (SP) 
chin 


SFFLG 
12$ 
SENV 


12% 
SMSGTYPE 


11% 

a4 (SP), SFATAL 
#2, 4(SP) 
SMSGTYPE 
SFFLG 
SLFLG 
SMFLG 
(SP)+,R1 
(SP)+,RO0 
PC 

0 

0 

0 


N 14 
29-SEP-77 
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++GET MESSAGE ADOR. 

BUMP RETURN ADOR. 
i3SEE IF DONE Y LAST XMISSION? 
++ IF NOT: WAIT 
++PUT ADOR IN MAILBOX 
++FIND END OF MESSAGE 


;;SUB START OF MESSAGE 

++GET MESSAGE LNGTH IN WORDS 
+;PUT LENGTH IN MAILBOX 

+; TELL APT TO TAKE MSG. 


;;PUT MSG ADOR IN JSR LINKAGE 
+; BUMP RETURN ADDRESS 

>;PUSH 177776 ON STACK 

+-CALL TYPE MACRO 


oT ak “an” Ms FATAL ERROR? 
sil 
++RUNNING UNDER APT? 
+7 1F NOT: R 
+FINISHED LAST MESSAGE? 
+27 1F NOT: WAIT 
:;GET ERROR # 

+;BUMP RETURN ADDR. 
++ TELL APT TO TAKE ERROR 
++CLEAR FATAL FLAG 
++CLEAR LOG FLAG 
+;CLEAR MESSAGE FLAG 
+-POP STACK INTO R1 
+:POP STACK INTO RO 


;: FATAL FLAG 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


3) MAEXAAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AA TARA AAA AAA AAA AAAS 

;KTHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

> KOCTAL (ASCII) NUMBER AND TYPE IT. 

; KSTYPOS---ENTER MERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; XCALL: 
7s MoV 
| TYPOS 
: . BYTE 
i BYTE 
‘8 
| 
| 

h 


NUM, = (SP ) 


;;NUMBER TO BE TYPED 
>; CALL FOR TYPEOUT 
;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
>;M=1 OR O 
+212 TYPE LEADING 7FROS 
>; O=SUPPPESS LEADING ZEROS 


: STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARQMETEPS AS THE LAST 


SEQ 0182 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 


052022 
052026 
052034 
052040 
052044 
052046 
052054 
052062 
052070 


052236 


29-SEP-77 09: 55 


017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052793 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
012610 


000000 
000001 
052247 
000002 


000001 
000006 
000005 


052247 


000006 
052246 
052245 
000012 


052246 
177770 


000060 
000040 
052242 
05224~ 
052244 


000002 


052245 


052245 
052247 
062244 


900004 


eS 
:* 
eS 
oe 
es 
re 
me 
me 
eS 


STYPOS: 


STYPOC: 
STYPON: 


1S: 


3S: 


6$: 


MACY11 30(1046) 
BINARY TO OCTAL (ASCII) AND TYPE 


STYPOS OR STYPOC 
CALL: 

MOV 
TYPON 


NUM, = (SP ) 


NUM, = (SP) 


(SP), -(SP) 
1(SP), SOF ILL 


(SP) +, SOMODE +1 


#2, (SP) 
STYPON 

#1, S0F ILL 
#6, SOMODE +1 
#5, SOCNT 
R3,-(SP) 
R4, - (SP) 
R5,-(SP) 
SOMODE +1, R4 
RY 


#6-R4 

R4, SOMODE 
SOF ILL, RY 
12¢(SP),R5 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
2(SP),4 (SP) 
(SP)+, (SP) 


B 15 
29-SEP-77 
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++NUMBER TO BE TYPED 
+7CALL FOR TYPEOUT 


2 el te crn HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 
>,CALL FOR TYPEOUT 


+;PICKUP THE MODE 

++LOAD ZERO FILL SWITCH 
++NUMBER OF DIGITS TO TYPE 
++ADJUST RETURN ADDRESS 


7,SET THE ZERO FILL SWITCH 

;;SET FOR SIX(6) DIGITS 

+;SET THE ITERATION COUNT 

7+SAVE RZ 

7+ SAVE RY 

7-SAVE RS 

;;GET THE NUMBER OF DIGITS TO TYPE 


+; SUBTRACT IT FOR MAX. ALLOWED 
>;SAVE IT FOR USE 

+;+GET THE ZERO FILL SWITCH 
++PICKUP THE INPUT NUMBER 
+;CLEAR THE OUTPUT WORD 
+;ROTATE MSB INTO "C" 

+;GO DO MSB 

77FORM THIS DIGIT 


;;GET LSB OF THIS DIGIT 

>; TYPE THIS DIGIT? 

;>BR IF NO 

;;GET RID OF JUNK 

+; TEST FOR O 

;; SUPPRESS THIS 0? 

;;>BR fF YES 

;;DON'T SUPPRESS ANYMORE O'S 
>-MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 
>; SAVE FOR TYPING 

;;GO TYPE THIS DIGIT 

+; COUNT BY 1 

;-BR IF MORE TO DO 

;;BR IF DONE 

>; INSURE LAST DIGIT ISN'T A BLANK 
;;GO DO THE LAST DIGIT 

>; RESTORE RS 

;;>RESTORE RY 

;;RESTORE R2 

;;SET THE STACK FOP RPETURNING 


‘ 


SEQ 0183 


UNIBUS 
DZR6GA 


RKOG-RKO7? QUAL PORT ORIVE DIAGNOSTIC 


. Pil 


052240 
052242 
052243 
052244 
052245 
052246 


052250 
052252 
052254 
052256 


052260 


052326 


052330 


052400 


052402 
052402 


29-SEP-77 09:55 


000002 


000000 


000000 
000000 
o0c000 
000001 
052257 
052260 


005037 
012737 
013737 
0127237 
012737 
005777 
012777 
000207 


117746 
042716 
021627 
001007 
104401 
004737 
005726 
000137 
021627 
001004 
022737 
001500 


022737 


052250 
052256 
052252 
052330 
000200 
126626 
000100 


126612 
177600 
000003 


053456 
052260 


047330 
000007 


000176 


000001 


052252 
052254 
000066 
000062 


126616 


001140 


052250 


MACY11 30(1046) 


RTI 
8$: .BYTE OQ 
BYTE 0 
SOCNT: .BYTE OQ 
SOFILL: .BYTE 0 


SOMODE: . WORD 0 
-SBTTL TTY INPUT ROUTINE 


C 15 
29-SEP- 
BINARY TO OCTAL (ASCII) AND TYPE 


77 10:08 PAGE 184 


;+RETURN 

;;STORAGE FOR ASCII DIGIT 

7+ TERMINATOR FOR TYPE ROUTINE 
>;O0CTAL DIGIT COUNTER 

>+ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


5s MRXKAAAAAAAAAAKA AAA AAA AAA AAA AA AAA AAA AA AAA AAA AA AAA AAA AA AAA AAA AE 


.ENABL LSB 

STKCNT: .WORD 0 
STKQIN: .WORD 0 
STKQOUT: .WORD O 
STKQSRT: .BLKB 1 
STKQEND=. 

. EVEN 

*¥TK INITIALIZE ROUTINE 


++NUMBER OF ITEMS IN QUEUE 
+; INPUT POINTER 

+;OUTPUT POINTER 

++ TTY KEYBOARD QUEUE 


+XTHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUELE 
;XSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


> XCALL: 

;x JSR PC, STK INT 

ix RETURN 

STKINT: CLR STKCNT 
MOV #STKQSRT. STKQIN 
MOV STKQIN. STKQOUT 
MoV #STKSRV, DE TKVEC 
MOV #200, d# TKVEC+2 
TST aSTKB 
MoV #100, d$TKS 
RTS PC 


;*TK SERVICE ROUTINE 

>XTHIS ROUTINE WILL SERVICE THE 
> *BY READING THE CHARACTER FROM 
>KIT IN THE QUEUE. 


+;CLEAR COUNT OF ITEMS IN QUEUE 

;;MOVE THE STARTING ADDRESS OF THE 
;;QUEUE INTO THE INPUT & OUTPUT POINTERS 
>; INITIALIZE THE KEYBOARD VECTOR 

>; "BR" LEVEL 4 

;;CLEAR DONE FLAG 

;;ENABLE TTY KEYBOARD INTERRUPT 

;;RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 
THE INPUT BUFFER AND PUTTING 


;X1F THE CHARACTER 1S A “CONTROL-C" ( CC) STKINT IS CALLED AND 
; KXUPON RETURN EXIT 1S MADE TO THE “CONTROL-C" RESTART ADDRESS (STOP) 


@STKB, - (SP) 


STKSRV: MOVB 
BIC # C177, (SP) 


CMP (SP), #3 
BNE 1$ 
TYPE , SCNTLC 
JSR Pc, STKINT 
TST (SP )+ 
JMP STOP 

1S: CMP (SP), #7 
BNE 2$ 
CMP #SWREG. SHR 
BEQ 6$ 
CMP #1, STKCNT 


;;PICKUP THE CHARACTER 
;-STRIP THE JUNK 

>21S 'T A CONTROL C? 
+; BRANCH IF NO 

> TYPE A CONTROL-C ¢ C) 
>; INIT THE KEYBOARD 

>; CLEAN UP STACK 

>, CONTROL C RESTART 
3718S 1T A CONTROL G? 

;; BRANCH IF NO 

>; 1S SOFT-SWR SELECTED? 
>;GO TO SWR CHANGE 


++ 1S THE QUEUE FULL? 


SEQ 0184 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
DZR6GA. P 


11 


052410 
052412 
052416 
052420 
052422 
052426 
052430 
052434 
0524 36 
052442 
052444 
052450 
052454 
052460 
052462 
052470 
052472 
052476 
052502 
052504 
052510 
052512 
052516 
052522 
052526 
052534 
052536 
052544 


052546 
052554 
052556 
052562 
052564 
052570 
052574 
052600 


052602 
052610 
052612 
052614 
052620 
052624 


052632 


29-SEP-77 09: 55 


001004 
104401 
005726 
000451 


000002 


022737 
001124 
105777 
100121 
117746 
042716 
021627 
001300 


123727 
001674 
005726 
004737 
005077 
112737 


104491 


001200 


000023 
126510 
126502 
126476 
177600 
000021 
000100 


052250 
000140 


000175 
000040 
177530 
052252 
052252 


052256 


000176 
126362 
126356 


177600 
000007 


001134 


052260 
126320 
000001 


053470 


126454 


001140 


000001 


001135 


MACY11 30(1046) 


TTY INPUT ROUTINE 


34: CMP 


315: 


4S: MOVB 


53: RTI 


35 MAXKKAAAKA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AAA AA AAA A AAA AAA AAAS 


3$ 

- SBELL 
(SP )+ 

5$ 

(SP), #23 
32 


OSTKB, - (SP) 
# C177, (SP) 
(SP) +, #21 


31$ 
#100, dSTKS 


STKCNT 
(SP), #140 
4% 


(SP), #175 
4 
#40, (SP) 


(SP)+, OSTKGIN 


STKQIN 


prea sdateeami 
#STKQSRT, STKQ!IN 


015 . 
29-SEP-77 


10: 08 


PAGE 185 


+; BRANCH IF NO 


;¢RING THE 


TTY BELL 


at CHARACTER OFF OF STACK 
+718 IT xy or pes -$? 
F NO 


++ BRANCH 


++ DISABLE Try KEYBOARD INTERRUPTS 
++ CLEAN CHAR OFF STACK 
+;WAIT FOR AC 


++ LOOP UNT 


HAR 
IL_ITS THERE 


+;GET THE CHARACTER 


+; MAKE IT 


7-BIT ASCII 


33:18 IT of CONTROL = Q? 


++ BRANCH 


F NO 
/REENABLE TTY KEYBOARD INTERRUPTS 
N 


>-RETU 
+; COUNT TH 


1S CHARACTER 


++ 1S 1T UPPER CASE? 
++BRANCH IF YES 

+718 1T A SPECIAL CHAR? 
++BRANCH IF YES 

+;MAKE IT UPPER CASE 


>+AND PUT 
;;,UPDATE T 
+;GO OFF T 


1T IN QUEUE 
HE POINTER 
HE END? 


++BRANCH IF NO 
+;RESET THE POINTER 


++ RETURN 


+ XSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 


;*ROUTINE 1S ENTERED FROM THE TRAP HANDLER. 


AND WILL 


;KSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
; CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


SCKSWR: CMP 


re oo $9 229509999599995 9999000 9 > 09 26 9 22> 9 0 2 29 99 2 29 022959 0999 999 09 8 | 


#SWREG, SWR 
15% 

aSTKS 

15% 
OSTKB, - (SP) 
# C177, (SP) 
(SP), #7 

2$ 


7718S THE S$ 


OFT-SWR SELECTED 


+-EXIT IF NOT 


3718S A CHA 
22 MOG 
oc Ves 
>;MAKE IT 
,atS tT R 
7; 1F NOT, 
>-AND EXIT 


R WAITING? 
EXIT 


7-BIT ASCII 
CONTROL-G? 
PUT IT IN THE TTY QUEUE 


; CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
; KROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 


* sgeapge nea TYPED. 


6S: SAUTOB. #1 
BEQ 2$ 
TST (SP )+ 
JSR PC, STKINT 
CLR d$TKS 
MOVB #1, S1NTAG 
TYPE , SCNTLG 


77ARE WE R 
7;BRANCH | 


UNNING IN AUTO-MODE? 
F YES 


+;CLEAR CONTROL-G OFF STACK 
+;FLUSH THE TTY INPUT QUEUE 


+;DISABLE TTY KEYBOARD INTERRUPTS 


>,SET INTE 
>;ECHO THE 


RRUPT MODE INDICATOR 
CONTROL-G ¢ G) 


AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


SEQ 0185 


UNIBUS RKO6-RKO7? DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 


052636 
052642 
052646 
052650 
052654 
052656 
052660 
052664 


052666 
052672 


052676 
052702 
052704 
052710 
052714 
052722 
052724 
052732 


052736 
052742 
052744 
052750 
052754 


052756 
052762 
052764 
052770 
052772 
053000 
053004 
053010 
053016 
053020 
053026 
053030 
053034 
053040 
053042 
053046 
053050 
053054 
053060 
053062 
053064 
053066 
053070 
053074 
053100 
053102 
053106 
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104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 


117746 
042716 


021627 
001015 
104401 
062706 
123727 
001003 
012777 
000137 


021627 
001005 
104401 
062706 
000737 


021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
006667 
104401 
000720 


053475 
000176 


053506 
126260 
126254 
177600 
000003 
053456 
000006 
001135 
000100 
047330 
000025 


053463 
000006 


000015 
000004 
000002 
000006 
001205 
601135 
000100 


051260 
000060 


000067 


000060 
c00002 


000002 
177776 


001204 


000001 
126212 


126140 


000001 
126116 


19S: 


73: 


108: 


11%: 
14S: 


155: 
168: 


17: 


18S: 


E 15 
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TTY INPUT ROUTINE 


SGTSWR: TYPE 
MOV 


» SMSHWR 
SWREG, - (SP) 
» SMNEW 

- (SP) 

- (SP) 
d$TKS 

7$ 


OSTKB, - (SP) 
# C177, (SP) 


(SP), #3 
9$ 


SINTAG, #1 
8% 

#100, dS$TKS 
STOP 


(SP), #25 
10% 


» SCNTLU 
#6, SP 
19% 


(SP). #15 
16% 

4 CSP) 

11$ 

2(SP), SHR 
#6, SP 

, SCRLF 
SINTAG. #1 
15% 

#100, d$TKS 


PC, STYPEC 
(SP), #60 


18$ 

(SP), #67 
18$ 

#60, (SP)+ 
2(SP) 

17% 

(SP) 

(SP) 

(SP) 


2(SP) 
-~2(SP), (SP) 


7$ 
, SQUES 
20% 


;; TYPE CURRENT CONTENTS 

>; SAVE SWREG FOR TYPEOUT 

++GO TYPE--OCTAL ASCIICALL DIGITS) 
;PROMPT FOR NEW SWR 

;;CLEAR COUNTER 

++ THE NEW SWR 

> CHAR THERE? 

7; 1F NOT TRY AGAIN 


++PICK UP CHAR 
+;MAKE IT 7-BIT ASCII 


3271S tT A CONTROL-C? 

3+BRANCH IF NOT 

++ YES, ECHO CONTROL-C ( C) 

;;CLEAN UP STACK 

;;REENABLE TTY KEYBOARD INTERRUPTS? 
;+BRANCH IF NO 

;;ALLOW TTY KEYBOARD INTERRUPTS 

++ CONTROL-C RESTART 


;+1S 1T A CONTROL-U? 
;;+BRANCH IF NOT 

;; YES, ECHO CONTROL-U ( U) 
3; IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 


3318S IT A <CRd? 

+;BRANCH IF NO 

;;YES, 1S IT THE FIRST CHAR? 
++BRANCH IF YES 

;+SAVE NEW SWR 

;;CLEAR UP STACK 

;7ECHO <CR> AND <LF> 
;;RE-ENABLE TTY KBD INTERRUPTS? 
>;BRANCH IF NOT 

;;RE-ENABLE TTY KBO iNTERRUPTS 
;;RETURN 

>,ECHO CHAR 

7; CHAR < Q? 

;;BRANCH IF YES 

;;CHAR > 7? 

;;BRANCH IF YES 

+;STRIP-OFF ASCII 

>: 1S THIS THE FIRST CHAR 

>; BRANCH IF YES 

;;NO,. SHIFT PRESENT 

os CHAR OVER TO MAKE 

BS ROOM FOR NEW ONE. 
>;KEEP COUNT OF CHAR 

;;SET IN NEW CHAR 

>;GET THE NEXT ONE 

>; TYPE ?<CR><LF> 

>; SIMULATE CONTROL-U 


F 15 
UNIBUS RKO6-RKO7? DUAL PORT ORIVE DIAGNOSTIC MACY11 30(104%6) 29-SEP-77 10:08 PAGE 187 SEQ 0187 
DZ2R6GA. P11 29-SEP-77 09: 55 TTY INPUT ROUTINE 


977 .DSABL LSB 

9775 

9776 

9777 +s AEXKAAAAAA AAA AAA AAA AA AAA AAA AAA AA AA AA AA AAA AAA AAA AAA AAA EAE 
9778 +XTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

9779 pes 

9780 ; ROCHR ;+GET A CHARACTER FROM THE QUEUE 
9781 . RETURN HERE ++ CHARACTER IS ON THE STACK 

9782 ;x +;WITH PARITY BIT STRIPPED OFF 
9783 ; 

9784 

9785 053110 011646 SRDOCHR: MOV (SP), -(SP) ++PUSH DOWN THE PC AND 

9786 053112 01€666 000004 00002 MOV 4(SP),2¢SP) ++ THE PS 

9787 053120 005066 000004 CLR 4CSP) +;GET READY FOR A CHARACTER 

9788 0523124 005046 CLR - (SP) +;PUT NEW PS ON STACK 

9789 053126 012746 053134 MOV #64, -(SP) +,PUT NEW PC ON STACK 

9790 053132 000002 RTI ++POP NEW PC AND PS 

9791 053134 64S 

9792 053134 005737 052250 1$: TST STKCNT +;WAIT ON A CHARACTER 

9793 053140 001775 BEQ 1$ 

9794 053142 005337 052250 DEC STKCNT ++DECREMENT THE COUNTER 

9795 053146 117766 177102 000004 MOVB @STKQOUT,4(SP) +; GET ONE CHARACTER 

9796 053154 005237 052254 INC STKQOUT +;UPDATE THE POINTER 

9797 053160 023727 052254 052257 CMP STKQOUT, #STKQEND ++DIO 1T GO OFF OF THE END? 
9798 053166 001003 BNE 2$ +BRANCH IF NO 

9799 053170 012737 052256 052254 MOV #STKQSRT, STKQOUT ‘2RESET THE POINTER 

9800 053176 000002 2S: RTI ++RETU 

9801 VOANASEAADUAASEXASENESENE SUA TSUA SEED SA SORE SENET DATE AT DAT 
9802 ;XTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

9803 ; ¥CALL: 

9804 :* ROLIN +; INPUT A STRING FROM THE TTY 
9805 i* RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
9806 re >; TERMINATOR WiLi BE A BYTE OF ALL O'S 
9807 

9808 053200 010346 SROLIN: MOV R3,-(SP) 7+ SAVE R3 

9809 053202 005046 CLR - (SP) >>CLEAR THE RUBOUT KEY 

9810 053204 012703 053434 1$: MOV aSTTYIN. RS +;GET ADDRESS 

9811 053210 022703 053456 23: CMP @STTYIN¢22,R3 +; BUFFER FULL? 

9812 05321% 101456 BLOS 4§ *;BR IF YES 

9813 053216 104410 ROCHR >;GO PEAD ONE CHARACTER FROM THE TTY 
9814 053220 112613 , MOVB (SP)+, (R3) ;,GET CHARACTER 

9815 053222 122713 000177 108: CMPB #177. (R3) 7+ 1S IT A RUBOUT 

9816 053226 9001022 BNE 5% *+BR IF NO 

9817 053230 005716 TST (SP) >> 1S THIS THE FIRST RUBOUT? 

9818 053232 001007 BNE " +>BR IF NO 

9819 053234 112737 O00134 53432 MOVB " ,9§ ++ TYPE A BACK SLASH 

9820 053242 104401 053432 TYPE "3s 

9821 053246 012716 177777 MoV a: “1, (SP) ++SET THE RUBOUT KEY 

.9822 053252 005303 6$: DEC >>BACKUP BY ONE 

9823 053254 020327 053434 CMP RE. SSTTYIN +; STACK EMPTY? 

9824 053260 103434 BLO 4$ +7BR IF YES 

9825 053262 111337 053432 , MOVB (R3),9% +;+SETUP TO TYPEOUT THE DELETED CHAR. 
9826 053266 104401 053432 TYPE 9S ;;GO TYPE 

9827 053272 006746 BR 2$ GO READ ANOTHEP CHAR 

9828 053274 005716 5S. TST (SP) ;;RUBOUT KEY SET? 


9829 053276 001406 BEQ ? >;BR IF NO 


UNI BUS 
DZR6GA. 


RKOG-RKO? DUAL PORT ORIVE DIAGNOSTIC 
29-SEP-77 


Pil 


053300 
053306 
053312 
053314 
053320 
053322 
053326 
053330 
053334 
053336 
053340 
053344 
053350 
053352 
053356 
053360 
053364 
053370 
053374 
053376 
053402 
053406 
053410 
053412 
053414 
053422 
053430 
053432 
053433 
053434 
053456 
053463 
053470 
052475 
053502 
053506 
053514 


053520 
053522 
053530 
053532 


112737 
104401 
005016 
122713 


020075 
0£3520 


011646 
016606 
010046 
010146 


09: 55 


000134 
053432 


000025 
053463 
000022 


001205 
053434 


001204 


053432 
053432 
000015 


177777 
001206 


000004 
053434 


005015 
006525 
005015 
051412 
000040 
042516 

000 


000004 


053432 


000002 
000004 


051127 
020127 


NN0002 


MACY11 3 
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G 15 
29-SEP-77 


SEQ 0188 


10:08 PAGE 188 


MOVB #' 9% +; TYPE A BACK SLASH 
TYPE 9 
CLR (SP) +;CLEAR THE RUBOUT KEY 
73: CMPB #25, (R3) ++ 1S CHARACTER A CTRL U? 
BNE 8$ +;BR IF NO 
TYPE , SCNTLU +; TYPE A CONTROL “U" 
BR 1$ +;GO START OVER 
8S: CMPB #22, (R3) +7 1S CHARACTER A “ R"? 
BNE 3$ ;;BRANCH IF NO 
CLRB (R3) +;CLEAR THE CHARACTER 
TYPE , SCRLF +; TYPE A "CR" & “LF” 
TYPE »STTYIN +; TYPE THE INPUT STRING 
BR 2$ re yg ANOTHER CHACTER 
BR 1$ CLEAR THE BUFFER AND LOOP 
35: MOVB (R3),9% ++ECHO THE CHARACTER 
TYPE 9% 
CMPB #15, (R3)+ ++ CHECK FOR RETURN 
BNE 2$ ;;LOOP IF NOT RETURN 
CLRB -1(R3) +;CLEAR RETURN (THE 15) 
TYPE , OLF ++ TYPE A LINE FEED 
TST (SP )+ ++ CLEAN a KEY FROM THE STACK 
MOV (SP)+,R3 ++RESTORE R 
MoV (S°),-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV YCSP), 20SP) iG FIRST ASCI1 CHARACTER ON IT 
MOV SSTTYIN, 4(SP) 
RTI ;;RETURN 
9S: .BYTE 0 ;; STORAGE FOR ASC!! CHAR. TO TYPE 
.BYTE QO ++ TERMINATOR 
STTYIN: . BLKB 22 ;RESERVE 22 BYTES FOR TTY INPUT 
SCNTLC: .ASCIZ 7 €7<15><12> :; CONTROL bf 
SCNTLU: .ASCIZ 7 U/<15><12> >; CONTROL “U" 
SCNTLG: .ASCIZ / G/<15><12> ;;CONTROL “G" 
SMSWR: .ASCIZ <15><12>/7SWR = 7 
GSMNEW: .ASCIZ 7 NEW = 7 





. EVEN 
.SBTTL READ AN OCTAL NUMBER FROM THE TT' 


35 MEXKAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AERA AAA AA AAA ARATE 

; THIS ROUTINE WILL READ AN OCTAL (ASCI1) NUMBER FROM THE TTY AND 

>; *CHANGE |T TO BINARY. 

>THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;KOCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
;KAFOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
;4%THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


> XCALL: 
:x RDOCT ;;READ AN OCTAL NUMBER 
a RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
a ;;HIGH ORDER BITS ARE IN SHIOCT 
SRDOCT: MOV (SP),-(SP) ;;PROVIDE SPACE FOR THE 
MOV 4YCSP),2(SP) >; INPUT NUMBER 
MoV RO. -(SP) >;PUSH RO ON STACK 
MOV R1,-(SP) >;PUSH R1 ON STACK 


UNI BUS 
DZR6GA. 


Pil 


053534 
053536 
053540 
053542 
053546 
053550 
053552 
053554 
053556 
053562 
053564 
053570 
053572 
053574 
053576 
053600 
053602 
053604 
053606 
053612 
053614 
053616 
053620 
053624 
053630 
053632 
053634 
053636 
053640 
053642 
053644 
053646 
053650 
057654 
053656 


053660 
053662 
053666 
053672 
053676 
053702 
053704 
053706 
053710 
053712 
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010246 
104411 
012600 
010037 
005001 
005002 
112046 
001420 
122716 
003026 
122716 
002423 
00€301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
C00756 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
005726 
105010 
104401 
000000 
104401 
000730 
000000 


104413 
016601 
012705 
012704 
012703 
012100 
012101 
005002 
110245 
010002 


053646 


000060 
000067 


000012 
O5305e 


001204 


000002 
053777 
000014 
177770 


RKOG-RKO7 DUAL PORT DRIVE _— oii P 


MACY11 30(1046) 


15 
99° oO =i 
N OCTAL NUMBER FROM THE T 


10:08 PAGE 189 SEQ 0189 


MOV R2,-(SP) ;+PUSH R2 ON STACK 
15: ROLIN ;;READ AN ASCIZ LINE 
MOV (SP)+,R0O ;;GET ADDRESS OF 1ST CHARACTER 
MoV RO, 5$ ;;AND SAVE IT 
CLR R1 >;CLEAR DATA WORD 
CLR RZ 
23: Move (RO) +, -(SP) ;;PICKUP THIS CHARACTER 
BEQ 3 7; IF ZERO GET OUT 
CMPB #'0O, (SP) ;;MAKE SURE THIS CHARACTER 
BGT +; 1S AN OCTAL DIGIT 
CMPS #'7, (SP) 
BLT 4g 
ASL R1 1722 
ROL R2 
ASL R1 33 Y 
ROL R2 
ASL Ri 538 
ROL R2 
BIC # C7, (SP) ;;STRIP THE ASCII JUNK 
ADD (SP)+,R14 ;;ADD IN THiS DIGIT 
BR 28 >+LOOP 
3S. TST (SP )+ >; CLEAN TERMINATOR FROM STACK 
MOV R1,12¢SP) ;, SAVE THE RESULT 
MoV R2.GHIOCT 
MoV (SP )+,R2 ;;POP STACK INTO R2 
MOV (SP)+,R1 ;,POP STACK INTO R1 
MoV (SP)+,R0 ;;POP STACK INTO RO 
RTI ;; RETURN 
4s: TST (SP )+ >; CLEAN PARTIAL FROM STACK 
CLRB (RO) ;;SET A TERMINATOR 
TYPE ;; TYPE UP THRU THE BAD CHAR. 
5S. WORD O 
TYPE , SQUES ‘cr a mek 
BR 1$ 1: TRY AGAIN 
GHIOCT: . WORD ;HIGH ORDER BITS GO HERE 


0 
.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII! CONVERT ROUTINE 


Pe $6229 20590950930598505 9995059222223 % 99 0922220995 900093999 9228: 
>¥THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
;KUNSIGNED OCTAL ASCIZ NUMBER. 


> *XCALL 
x MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC, d#$0B20 >;CALL THE ROUTINE 
| RETURN ;; THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$0820: SAVREG ;,SAVE ALL REGISTERS 

MoV 2(SP).R1 ;;PICKUP THE POINTER TO LOW WORD 

MoV #SOCTVL4+13..R5 ;; POINTER TO DATA TABLE 

MoV #12.-R4 >;DO ELEVEN CHARACTERS 

MOV # C7,R3 >; MASK 

MOV (R1)+,R0 >;LOWER WORD 

MOV (R1)+,R1 >; HIGH WORD 

CLR R2 >; TERMINATOR 
1$. MOoVB RZ, -(R5) ;;PUT CHARACTER IN DATA TABLE 

MoV RO,.R2 :;GET THIS DIGIT 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


9942 
9943 


053714 
053716 
053720 
053722 
053724 
053730 
053732 
053734 
053736 
053740 
053742 
053744 
053746 
053750 
053752 
053754 
053760 
053762 


054000 
054002 
054006 


054100 


29-SEP-77 09: 55 


005304 
003007 
001405 
005205 
010566 
104414 
000207 
006203 
006001 
006000 
006001 
006000 
00€001 
006000 
040302 
062702 
000753 
000016 


104413 
016602 
012700 
010066 
012201 
012202 
012737 


001357 


000002 


000060 


000002 
054160 
000002 


000012 
054110 
054112 


000060 


054076 


MACY11 30(1046) 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


R 
23: ASR 
3: ROR 


B 
SOCTVL: . BLKB 


++ COUNT THIS CHARACTER 

;;BR IF NOT THE LAST DIGIT 

;-BR IF IT 1S THE LAST DIGIT 

;;ALL DIGITS DONE-ACJUST POINTER FOR FIRST 
;;ASCIZ CHAR. & PUT IT ON THE STACK 
;;RESTORE ALL REGISTERS 

+;RETURN TO USER 

;;POSITION THE MASK FOR THE LAST DIGIT 
;+POSITION THE BINARY NUMBER FOR 

3 THE NEXT OCTAL DIGIT 


;;>MASK OUT ALL JUNK 

>;MAKE THIS CHAR. ASCII 

++GO PUT IT IN THE DATA TABLE 
RESERVE DATA TABLE 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII! CONVERT ROUTINE 


5p MAXXKAAAAA AA AAA AAA AAA AAA AAA AA AAA AAA AA AAA AAA A AAA AAA AAT Ty 
/XTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


;XPOSITIVE. 
> *¥CALL 

:* MoV 
:% JSR 


> RETURN 


$08 2D: 
MOV 
MoV 
MoV 
MOV 


1S: CLR 
2$: SUB 


4S. . WORD 


SAVREG 


#PNTR, -(SP) 
PC, d#SDB20 


2(SP),R2 
#SDECVL, RO 
RO, 2(SP) 
(R2)+,R1 
(R2)+,R2 
#10. 495 
RSTNPWR, RY 
aSTNPWR+2Z,R5 


2 

(P4)+,R1 

R2 

(R4Y)+,R2 
(R5)+, (R5)+ 


;,POINTER TO LOW WORD OF B) 


++ THE FIRST ADDRESS OF ASCIZ 
>, 1S ON THE STACK 


<2Y NUMBER 


+;SAVE REGISTERS 

>;PICKUP THE DATA POINTER 

+;GET ADDRESS OF “SDECVL" STRING 

>;PUT ADDRESS OF ASCIZ STRING ON STACK 
;;>PICKUP THE BINARY NUMBER 


>; SET UP TO DO 10 CONVERSIONS 
>; ADDRESS OF TEN POWER 


>; CLEAR PARTIAL 

>; SUBTRACT TEN POWER 

>;BR IF TEN POWER TO LAPGE 
;;ADD 1 TO PARTIAL 

>; LOOP 

;;RESTORE SUBTRACTED VALUE 
;;MOVE TO NEXT TEN POWER 
>; CHANGE PARTIAL TO ASCII 
>,SAVE IT 

>; DONE? 

>;BR IF NO 


SEQ 0190 


J 15 
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DZROGA. P11 


054102 
054104 
054106 
054110 
054112 
054114 
054116 
054120 
054122 
054124 
054126 
054130 
054132 
054134 
054136 
054140 
054142 
054144 
054146 
054150 
054152 
054154 
054156 
054160 


054174 
054202 
054206 
054212 
054216 
054222 
054224 


054230 
054232 
054236 
054240 


29-SEP-77 09:55 


105020 
104414 
000207 
145000 
035632 
160400 
002765 


000014 


016637 
012746 
004737 
062716 
012666 
000207 
000c00 


010046 
016000 
105710 
001403 


000002 954224 
054224 
054000 
000005 
000002 


000000 


000004 


SEQ 0191 





DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


CLRB (RO)+ ++ TERMINATOR 
RESREG ;;RESTORE REGISTERS 
PC ++ RETURN 
STNPWR. 145000 +31. OE09 
35632 
160400 +; 1. OE08 
2765 
113200 +31. E07 
230 
 :hataas +71. OE06 
_—— 721. GEOS 
oe +21. OEO4 
he 331. CEO3 
oo +41. 0€02 
12 +71. OE01 
0 
i ict. CW 
SDECVL: . BLKB 12 ;;RESERVE STORAGE FOR ASCIZ STRING 


.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


oe 29599955599 996 999 > 929 > 09999099 900999 0200 929 > 9029500095909 78 0 8 | 
>KTHIS ROUTING WILL CONVERT A 16-BI1T UNSIGNED BINARY NUMBER TO AN 
; KUNSIGNED DECIMAL ASCIZ NUMBER 


> *¥CALL 
a MoV NUMBER, - (SP) 7;PUT BINARY NUMBER ON THE STACK 
:% JSR PC, d#$SB2D 7; CALL 
;* RETURN ;;ADDRESS OF THE 1ST ASC:Z CHAR. 1S ON THE STACK 
$SB2D: MOV 2(SP), 19% 7; SAVE BINARY NUMBER 

MOV #1%,-(SP) ;;SET POINTER 

JSR PC, d#$DB20 >;CALL DOUBLE LENGTH CONVERT 

ADD #5, (SP) >; ONLY ALLOW FIVE CHARACTERS 

MOV (SP )+, 2(SP) +;PICKUP POINTER 

RTS PC ;;RETURN 

WO 


_SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


Ape $29 02200600060009990993099990353 0222390990239 29 9939929020999 5 9 | 
;KTHIS ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
> *XLEADING NUMBERS. 


> XCALL 
;* MoV #NUMADR, - (SP) ;;FIRST ADDRESS OF ASCIZ STRING 
fe JSR PC, D#SSUPRS 
SSUPRS: MOV RO, - (SP) ;; SAVE RO 
MoV 4(SP),RO ;;PICKUP THE POINTER 
15: TSTB (RO) 3; TERMINATEOR? 
BEQ 23 ;;BR IF YES 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
DZROGA. P11 


10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10064 
10065 
10066 
10067 
10068 
10069 
10070 
10071 
10072 
10073 
10074 
10075 
10076 
10077 
10078 
10079 
10080 
10081 
10082 


054242 
054246 
054250 
054252 
054256 
054260 
054262 
054264 
054266 


054270 
054270 
054272 
054274 
054276 
054300 
054304 
054 306 
054310 
054312 
054316 
054320 
054322 
054324 
054330 
054332 
054334 
054336 


054400 


29-SEP-77 09: 55 
122720 000060 
001773 


005300 
010037 
104401 
000000 
012600 
012616 
000207 


010046 
010146 
010246 
005046 
016601 
100002 
005216 
005401 
016602 
100002 
005316 
005402 
012746 
005000 
103001 
060200 
006000 


000207 


054260 


000012 


000014 


000021 


000012 
000010 


MACY11 30(1046) 


K 15 
29-SEP-77 


10:08 PAGE 192 


TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


25: 


35: 


. SBTTL 


We Be Ve Ve Ve Be Be Ve We Be 


FeReRe Pes 
D 


SMULT: 


1$: 


28: 
35: 
4S: 


wn 
“ 


MoV 
MOV 


JSR 
RETURN 


#'0, (RO)+ 
1$ 


RO 
RO, 3$ 


0 
(SP)+,R0 
(SP)+, (SP) 


R PC 

INTEGER MULTIPLY ROUTINE 

; KKXKKAKAAA AAA AAA AAA AAA AAA AAA AAA AK AAA AAA AAA AA AAA AA AAA AAA AAA 
LL 

MULTIPLER, -(SP) 


+718 THIS AN ASCII “O" 7? 
3 IF YE 

++ BACK 
a we TYPING 


; 


+GO TYPE 
33 ASCIZ ye GOES HERE 


S 
UP BY “7 


++RESTORE 
dh Lanny THE STACK 


++RETURN 


MULT IPL ICAND, - (SP) 


PC, J#SMULT 


+;PRODUCT IS ON THE STACK 


PRODUCT 
LSB'S 
MSB'S 


RO, -(SP) 


12(SP).R1 
1$ 
(SP) 


R1 
14(SP),R2 
2 


(SP)+ 

RO. 12(SP) 
R1, 10(SP) 
(SP)+,R2 
(SP)+,R1 
(SP)+,R0 
PC 


;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;CLEAR THE SIGN KEY 

;;GET THE MULTIPLICAND 

>; BR IF PLUS 

+;5E€T THE SIGN KEY 

77 RAKE THE MULTIPLICAND POSTIVE 
3;fET THE MULTIPLIER 

;;8R IF PLUS 

;, UPDATE THE SIGN KEY 

;;MAKE THE MULTIPLIER POSTIVE 
;;SET THE LOOP COUNT 

;; SETUP FOR THE MULTIPLY LOOP 
;;DON'T ROD IF MULTIPLICAND = 0 


;;POSITION THE PARITIAL PRODUCT AND 
++ THE MULTIPLICAND 


;;HAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 


>;BR IF NO 

;; SHOULD PRODUCT BE NEGATIVE? 
;;GO0 TO EXIT IF NO 

;; YES--SO MAKE IT SO 


;;CLEAR SIGN INFO. OFF OF STACK 


;;PUT THE PRODUCT ON THE STACK (MSB'S) 


+-LSB'S 

;;POP STACK INTO RZ 
;;POP STACK INTO R1 
;;POP STACK INTO RO 


SEQ 0192 


UNIBUS RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC 


DZROGA. P11 


10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
10124 
16125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 
10144 
10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
10162 
10163 
10164 
10165 


054402 
054402 
054404 
054406 
054410 
054412 
054414 
054416 
054422 
054426 
054432 
054436 


054440 
054440 
O54444 
054450 
054454 
054460 
054462 
054464 
054466 
054470 
054472 
054474 


054476 
054500 
054504 
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010046 
010146 
C10246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 


012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012691 
012600 
000002 


016046 
016600 
005740 


000022 
000022 
000022 
000022 


000022 
000022 
000022 
000022 


000002 
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SAVE AND RESTORE RO-RS ROUTINES 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
Ce aa ree rn eee rar 


7% — SAVREG 
;XUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
; RTOP--- (416) 


7K 42---(418) 
7K 44---R5 

> Kk +6---R4 

7K 48---R3 

+ %+10---R2 

7 %&+12---R1 

7; %4+14---RO 
SSAVREG: 


MoV RO, - (SP) 
MOV Ri,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV RS. -(SP) 
MOV 22(SP),-(SP) 
MOV 22(SP),-(SP) 
MOV 22(SP),-(SP) 
MoV 22(SP),-(SP) 


;;+PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;+PUSH RY ON STACK 
;+PUSH RS ON STACK 

+; SAVE PS OF MAIN FLOW 
+; SAVE PC OF MAIN FLOW 
;;SAVE PS OF CRiL 

>; SAVE PC OF CALL 


RTI 
> ¥RESTORE RO-RS 
> XCALL: 
it RESREG 
SRESREG: 
MOV (SP)+, 22(SP) >,RESTORE PC OF CALL 
MoV (SP )+, 22(SP) >;>RESTORE PS IF CALL 
MOV (SP )+, 22(SP) ;RESTORE PC OF MAIN FLOW 
MoV (SP )+#, 22(SP ) +; RESTORE PS OF MAIN FLOW 
MoV (SP)4+,R5 ;;POP STRCK INTO RS 
MOV (SP )+,R4 ;;P0° STACK INTO RY 
MoV (SP)+,R3 >; FUP STACK INTO R3 
MOV (SP)+,R2 ;;POP STACK INTO R2 
MoV (SP)+,R1 ;;POP STACK INTO R1 
MOV (SP)+,RO ;;POP STACK INTO RO 
T 


RTI 
.SBTTL TRAP DECODER 


js MAEXKAAAAA AAA AAAS AAA AAA ALARA AAA AAA AAA AAA AAA AEA AA AAA TATE 
;HTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;XAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
+*GO TO THAT ROUTINE. 


STRAP: MOV RO, - (SP) ++SAVE RO 
MoV 2(SP),RO ,;GET TRAP ADDRESS 
TST ~ (RO) +; BACKUP BY 2 


SEQ 0193 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


OZROGA. P11 


10166 
10167 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10180 
10181 
10182 
10183 
10184 
10185 
10186 
10187 
10188 


054516 


054520 
054522 
054530 


054532 
054534 
054536 
054540 
054542 
054544 


054546 


054550 
054552 
054554 
054556 
054560 
054562 
054564 
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111000 
006300 
016000 
000200 


011646 
016666 
000002 


054520 
C51046 
052046 
052022 
052062 
051330 


052636 


052546 
053110 
053200 
053520 
054402 
054440 
047276 


054532 


000004 9000002 


TRAP DECODE 


ww 3 30(1046) 


(RO), RO 
0 


R 
STRPAD(RO), RO 
RO 


M15 
29-SEP-77 10:08 PAGE 


194 SEQ 0194 


++GET RIGHT BYTE OF TRAP 
++POSITION FOR INDEXING 


++ INDEX TO TABLE 


++GO TO ROUTINE 


+; THIS 1S USE TO HANDLE THE "“GETPRI" MACRO 


+;MOVE THE PC DOWN 
+;MOVE THE PSW DOWN 
++RESTORE THE PSW 


STRAP2: MOV 
MOV 
RTI 


(SP), -(SP) 
4(SP), 2¢SP) 


.SBTTL TRAP TABLE 


;%THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;KBY THE “TRAP” INSTRUCTION. 


; ROUT INE 


STRPAD: ono 


STYPDS 
SGTSWR 


SCKSWR 
SROCHR 
SROL IN 
SRDOCT 


SSAVREG ;; CALL=SAVREG 
SRESREG ;;CALL=RESREG 


SCOP 1$ 


STRAP2Z 

>: CALL=TYPE 
>; CALL=TYPOC 
>; CALL=TYPOS 
+, CALL=TYPON 
>; CALL=TYPOS 


;; CALL=GTSWR 
;; CALL=CKSWR 
;;CALL=ROCHR 


>> CALL=ROLIN 
+; CALL=RDOCT 


>;CALL=SCOP1 


TRAP +1 (104401) 
TRAP +2( 104402) 
TRAP +3( 104403) 
TRAP +4 (104404 ) 
TRAP +5( 104405) 


TRAP +6( 104406) 


TRAP +7( 104407) 
TRAP +10( 104410) 
TRAP +11(104411) 
TRAP +12(104412) 
TRAP +13(104413) 
TRAP +14( 104414) 
TRAP +15( 104415) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE RO-R5S ROUTINE 

RESTORE RO-RS ROUTINE 
INTERNAL LOOP ON ERROR 


N 15 
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DZRO6GA. P11 29-SEP-77 09: 55 TRAP TABLE 


10202 

tee .SBTTL SERVICE MESSAGES 

10205 054566 005015 047125 O41111 MSGI: - ASCII <CR><LF>Z/UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC/ 
10206 054574 051525 051040 030113 

10207 054602 026466 045522 033460 

10208 054610 042040 040525 020114 

10209 054616 047520 052122 042040 

10210 054624 044522 042526 042040 

10211 054632 040511 047107 051517 

10212 054640 044524 103 

10213 054643 015 O46412 044501 -ASCIL <CR><LF>/MAINDEC-11-O02R6G-A-PB/<CR><LF> 
10214 054650 042116 041505 030455 

10215 054656 026461 055104 033122 

10216 9054664 026507 026501 041120 

10217 054672 005015 

10218 054674 005015 025011 025052 ASCII <CR><LFD/ AXXEK CAUTION XXKKK/(CR><LFD 
10219 054702 025052 041440 052501 

10220 054710 044524 047117 025040 

10221 054716 025052 025052 005015 

10222 054724 CO05015 044124 051511 .ASCIIL <CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/ 
10223 054732 O50040 047522 051107 

10224 054740 046501 051440 047510 

10225 054746 046125 020104 041040 

10226 054754 020105 040510 052114 

10227 054762 042105 O47440 046116 

10228 054770 020131 054502 052040 

10229 054776 050131 047111 020107 

10230 055004 047503 052116 047522 


1 
10232 055015 015 047412 044124 - ASCII <CR><LF>/OTHERWISE. CARTRIDGE FORMATTING AND. OR THE DRIVE 
10233 055022 051105 044527 042523 
10234 055030 020054 040503 052122 
10235 055036 044522 043504 020105 
10236 055044 047506 046522 052101 
10237 055052 044524 043516 040440 
10238 055060 042116 020054 051117 
10239 055066 052040 042510 042040 


10241 055100 005015 040515 020131 - ASCII <CR><LF>/MAY BE LEFT !N AN UNDETERMINED STATE/ 
10242 055106 042502 O46040 043105 
10243 055114 020124 047111 O40440 
10244 055122 020116 047125 042504 
10245 055130 042524 046522 047111 
10246 055136 yy D4 051440 040524 


10248 055146 005015 047111 052111 ASCIE <CRO<LF>/INITIALLY. DRIVES TC BE TESTED SHOULD HAVE: 7<CR><LF> 


055220 
10256 055225 015 040412 020056 -ASCIE = <CR><LF>/A. EVEN NUMBERED UNIT SELECT PLUGS ONLY’ 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZ2R6GA. P11 


10258 
10259 
10260 
10261 
10262 
10263 
10264 
10265 
10266 
10267 
19268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10286 
10287 
10288 
10289 
10290 
10291 
10292 
10293 


055240 
055246 
055254 
055262 
055270 
055276 


055726 
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051105 


042502 


047514 


027103 
020110 
020123 
052103 
027104 
020114 
052040 
053523 
042440 
042105 
027105 
042524 
020113 
046102 
027106 
042526 
054504 
041511 
047440 


042012 


042524 


042012 
042514 
020114 
052040 
053523 
047440 
046101 
020124 
042514 
042502 
050040 
042105 
047524 
047440 
050040 


042522 
052111 
041505 
043525 
054514 
044040 
046440 
046114 
042101 


041040 
047520 
042523 
042105 
042040 
047520 
051505 
052111 
040516 


053440 
046040 
N44504 
042105 
042040 
051040 
044440 
052101 
006516 


044522 
047516 
041040 
052123 
051525 
042526 
044124 
051524 
046105 
oce504 


051511 
042040 
047520 
051505 
052111 
020116 
050040 
047515 


047506 
047882 
047111 
040440 
044124 
047522 


SERVICE MESSAGES 


- ASCII 


. ASCII 


. ASCII 


ASCII 


ASCII 


ASCII 


.ASCIZ 


B 16 
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<CR><LF>/B. HEADS MANUALLY LOADED/ 


<CR><LF>ZC. BOTH PORTS SELECTED/ 


<CR><LF>/7D. DUAL PORT TEST SWITCH ENABLED/ 


<CR><LF>ZE. WRITE LOCK DISABLED/ 


<CR><LF>/F. DRIVE READY INDICATOR ON/<CR><LF> 


<CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE 


CCR><LF>/BOTH PORTS DESELECTED/<CR><LF> 


<CR><LF>/DISABLE DUAL PORT TEST SWITCH ON DUAL POPT MODULE / 


<CR><LF>/BEFORE PROCEEDING TO ANY OTHER PROGRAM’ “CP “LF 





SEQ 01% 


UNIBUS 
DZR6GA. 


10314 
10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
10323 
10324 
10325 
10326 
10327 
10328 
10329 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
10338 
10339 
10340 
10341 
10342 
10343 
10344 
10345 
10346 
10347 
10348 
10349 
10350 
10351 
10352 
10353 
10354 
10355 
10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 


RKO6-RKO7 DUAL > oe DRIVE DIAGNOSTIC 


Pil 


055734 
055742 
055743 
055750 
055756 
055764 
055772 
056000 


056404 


29-SEP-77 
051107 
000 


047440 


09: 55 
046501 
041012 


024531 
041012 


020114 
042502 
042524 
005015 
051104 
052040 
006504 


005012 
052040 
051104 
000072 
050012 
052440 
052123 
047524 
020124 


047516 
020122 


005015 
020105 


020072 


051525 
051104 
030450 
024460 


047117 
042514 
042524 
020124 
051117 
024460 


052116 


005012 


044527 
051505 
053111 


053517 
020120 
051101 
052040 
006461 


046040 
020120 


SERVICE MESSAGES 


MSG2: 


MSG3: 


MSG4: 


MSGS: 


MSG6: 


MSG?: 


MSG8: 


MSG10: 


MSG11: 


MSG13: 


C 16 
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.ASCIZ 


-ASCIZ 


-RASCIZ 


. ASCIZ 


~ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


ASCII 


<CR><LF>/BE SURE TO PUT SCRATCH PACK IN DRIVE 07 


<CR><LF>/DPIVE(S) TO BE TESTED (EVEN NOS. ONLY) 


<CR><LF>/BUSS ADDRESS (177440): 7 


<CR><LF>ZCONTROLLER INTERRUPT VECTOR (210): 


(CR><LF>ZINTERRUPT OCCURRED AT PC=/ 


<CR><LF>/DRIVE O WILL NOT BE TESTED’ 


CCR><LF><CR><LF>/ALL DRIVES TESTED/<CR><LF><LF 


CCP><LF><LFS/WILL TEST DRIVES: / 


CCR><LF><LF>/POWER UP RESTAPT TO TEST 1/ 


<CR><LF>/NO L OR P CLOCKS PRESENT.’ 


/ 


SEQ 0197 


UNI BUS 
DZR6GA. 


10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10382 
10383 
10384 
10385 
10386 
10387 
10388 
10389 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 
10408 
10409 
10410 
10411 
10412 
10413 
10414 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
10423 
10424 
10425 


RKOG-RKO7? DUAL PORT ORIVE DIAGNOSTIC 


Pil 


056412 
056420 
056426 
056430 
0564 36 
056444 


057036 


29-SEP-7 
046103 


7 09: 55 


041517 
042522 


046101 
052123 
040520 

000 
041012 
044523 
044522 


042012 
000040 


051105 
047516 


050012 


000012 
047520 
052040 
052125 


040412 
047111 
040514 
043117 
051524 


051515 
050012 
020102 
952517 


051120 
020115 
020124 
047111 
046120 
053440 


040510 
047105 
027056 
051501 
052111 
050012 
046501 
052122 


051513 
042523 


020114 
020123 
051523 


050131 
043516 
042526 


044522 


044522 
051105 
047516 


051101 
042507 
040511 
020056 


051117 


052122 
046511 
020072 


047502 
020107 
041516 
052040 
005015 


000 
051117 
044524 
035124 


043517 
041101 
042520 
027107 
040505 
044501 


052114 


040440 
042105 


SERVICE MESSAGES 


MSG14: 


MSG15: 
MSG16: 


MSG1?: 


MSG19: 


MSG19A: 


MSG20: 


NSG21: 


MSG22: 
MSG23: 


MSG74: 


MSG75: 


MSG76: 


D 16 
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.ASCIZ 


. ASCIZ 


ASCIZ 
-ASCIZ 


. ASCIZ 


. ASCII 


-ASTIZ 
-ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


-ASCI2 


<CR><LF>/ALL TESTS BYPASSED/ 
<CR><LF>/BYPASSING DRIVE 7 


CCRO<LF><LF>/DRIVE 7 
<CR><LF><LF>/DRIVE SER'AL NO. 7 


<CR><LF>/CARTRIOGE SERIAL NO. 7 


<CRO<LF>/PORT 7 


7 #¢CRO<LFD 
<CR><LF>/PORT A TIMEOUT: 7 


<CR><LF>/ABORTING BALANCE OF TESTS/<CR><LF> 


? MS/ 
<CR><LF>ZPORT B TIMEOUT 


<CR><LF>/PROGRAM ABORT PENDING... PLEASE WAIT/ 


<CR><LF>7HALT PENDING... PLEASE WA!T.’ 


<CR><LF>/PROGRAM ABORTED 


SEQ 0198 


UN | BUS 
DZR6GA 


10426 
10427 
10428 
10429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 
10452 
10453 
10454 
10455 
10456 
10457 
10458 
10459 
10460 
10461 
10462 
10463 
10464 
10465 
10466 
10467 
10468 
10469 
10470 
10471 
10472 
10473 
10474 
10475 
10476 
10477 
10478 
10479 
10480 
10481 


RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC 
29-SEP-77 09: 55 


.Pil 


057037 
057044 
057052 


057054 
057062 
057070 


057464 
057472 


015 
044040 
000104 


005015 
026131 


020124 


041412 
046101 


047523 
047440 
026060 
020066 
042527 
054522 
047111 


044522 


020124 


041101 
042524 
027056 
042520 
044440 
052522 
020124 


020123 
047111 
031123 
042506 
044440 
051503 
042040 
020116 
023040 
042516 
051040 


044103 
027061 
050040 
020101 


SERVICE MESSAGES 


E 16 
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052520 MSG77; .ASCIZ <CR><LF>/CPU HALTED/ 
042524 


051122 
046116 
026062 
046101 
026104 
040440 
005015 


042526 
020116 
020062 
052117 
042522 
041501 
051122 
020131 
046513 


047502 
051505 
052456 
041505 
044524 
052125 
041520 


051117 
052123 
047125 
052103 
052116 
052120 
041520 


042523 


041513 


041505 
052040 
051117 
051525 


.SBTTL ERROR MESSAGES 


EM1: 


EN2: 


EMS: 


EM4: 


EMS: 


EMb: 


EN?: 


. ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


ASCIZ 


ASCII 


ASCII 


<CR><LF>/SORRY, ONLY 0,2,4,6 ALLOWED, TRY AGAIN/<CR><LF> 


7ORIVE # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2/ 


(CR><LF>/ABORT TESTS... UNEXPECTED TIME OUT AT PC=/ 


CR><LF>/ABORT TESTS... UNEXPECTED INTERRUPT AT PC=/ 


/MOS SET IN RKCSZ2/ 


/UFE SET IN RKCS2/ 


/NO DRA IN RKDS & NO NEO IN PKCS2/ 


<CR><LF>7CHECK 1. THE PORT A USING DRIWE FLOP «DP1)/ 


UNI BUS 
DZR6GA 


10482 
10483 
10484 
10485 
10486 
10487 
10488 
10489 
10490 
10491 
10492 
10493 
10494 
10495 
10496 
10497 
10498 
10499 
10500 
10501 
10502 
10503 
10504 
10505 
10506 
10507 
10508 
10509 
10510 
10511 
10512 
10513 
10514 
10515 
10516 
10517 
10518 
10519 


RKO6-RKO7 DUAL PORT 
7 09: 55 


. Pil 


057500 
057506 
057514 
057522 
057524 
057532 
057540 
057546 
057554 
057562 
057570 
057576 
057600 
057606 
057614 
057622 
057630 


060144 


29-SEP-7 
047111 


053111 
050117 


1 
041505 


020107 
020105 
024040 


027062 
042526 
046111 
052040 
052122 
040524 
042050 


053111 
051505 
052502 
020124 
043111 
054502 
040522 


053111 
020124 
047105 
020124 
043111 
054502 
040522 


051117 


051440 


047117 
042514 
020124 
020131 
041513 


020117 
044440 
051501 


042516 
042524 


DRIVE DIAGNOS 


051104 
046106 
050104 


042040 
040440 
041101 
020117 
040440 
052524 
031120 


020105 
047105 
020124 
050123 
042511 
047440 
047524 


020105 
051120 
020124 
050123 
042511 
047440 
047524 


020124 
027123 
047116 
043105 
042503 
051124 
020122 
052123 


O4444O 
051504 
042105 
045522 
047502 
052105 


051124 
020122 
042522 
047111 
030523 


052101 
020116 
043117 


050130 
20104 


TIC 


ENB: 


EN9: 


EN10: 


EM11: 


EM12: 


EM13: 


EM14: 


F 16 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 200 
ERROR MESSAGES 


.ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


.ASCIZ 


. ASCIZ 


- ASCIZ 


.ASCIZ 


<CR><LF>/2. DRIVE AVAILABLE TO PORT A STATUS (DP2)/ 


7ORIVE PRESENT BUT NOT SPECIFIED BY OPERATOR/ 


/URIVE NOT PRESENT BUT SPECIFIED BY OPERATOR/Z 


/ABORT TESTS... CANNOT REFERENCE CONTROLLER REGISTER/ 


/DRA IN PKOS & NED IN RKCS2 BOTH SET’ 


/CONTROLLER NOT READY IN RKECS1/ 


7NO ATTN IN RKASOF/ 


/UNEXPECTED MEMORY PARITY TRAP.’ 


SEQ 0200 


UNI BUS 
DZReGA 


10538 
10539 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10549 
10550 
10551 
10552 
10553 
10554 
10555 
10556 
10557 
10558 
10559 
10560 
10561 
10562 
10563 
10564 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10573 
10574 
10575 
10576 
10577 
“10578 
10579 
10580 
10581 
10582 
10583 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10591 
10592 
10593 


RKOG-RKO7 DUAL PORT 
29-SEP-77 


Pil 


060152 
060160 


060633 


042515 


09: 55 


047515 
051101 
051124 


042113 
045522 


051117 
051105 
020124 
041513 


020117 
051505 
042116 
042504 
046440 


051525 
052105 


ORIVE DIAGNOS 


054522 
052111 
050101 


020103 


047111 
030523 


051104 
043040 
044440 
044526 
050101 
053105 


020120 
041505 


006523 
050125 


TIC 


EM15: 


EM16: 


EN22: 


EN23: 


G 16 bi 
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ERROR MESSAGES 


ASCII 


.ASCIZ 


- ASCI2Z 


. ASCIZ 


. ASCIZ 


- ASCIZ 


. ASCIZ 


. ASCIZ 


ASCII 


.ASCIZ 


. ASCII 


7RKDOC & RKDA INDICATE THAT WCE OCCURRED AT/ 


CCRO<LF>/CYL 411, TRACK 2, SECTOR 21/7 


/CANNOT READ BAD SECTOR INFORMATiON/ 


/MESSAGE AD ERROR 


/MESSAGE BO ERROR/ 


/MESSAGE Ai ERROR’ 


/MESSAGE B1 ERROR/ 


/CERR SET IN RKCS1/ 


‘NO DRIVES FOUND §N DEVICE MAP (SDEUM)/<CR><LF> 


/SETUP CORRECTLY AND PESTART.<CR><LF> 


/NO DRIVES FOUND ON BUSS/<CP><LF> 


/SETUP CORRECTLY AND PRESS ‘CONTINUE’ ’ CPO LF 


UNI BUS 
DZR6GA 


10594 
10595 
10596 
10597 
10598 
10599 


.PAl 


060640 
060646 
060654 
060662 
060670 
060676 
060702 
060710 
060716 
060724 
060732 
060735 
060742 
060750 
060756 
060764 
060772 
061000 
06100€ 
061007 
061014 
061022 
061030 
061036 
061044 
061052 
061060 
061066 
061074 
061102 
061110 
061116 
061122 
061130 
061136 
061144 
061152 
061160 
061166 
061174 
061202 
061205 
061212 
061220 
061226 
061234 
061242 
061250 
061251 
061256 
061264 
061272 
061300 
061306 
061313 
061320 


29-SEP-77 O09: 


081440 


053101 


042524 
052105 


042044 
051012 


044501 


RKO6-RKO7 DUAL PORT eg DIAGNOSTIC 


042522 
040440 
042522 
047503 
042525 


040526 
047516 
020124 
046513 


062105 
020104 
042101 
047524 
040456 
047111 
062123 


041505 
051502 
020124 
044514 
044440 
020104 
051117 
000105 
052103 
042523 
042522 
046517 


020124 
047111 
044526 
051127 
047503 
020104 
046501 
052103 


020131 
051505 
032054 
046114 
044440 
053105 


046105 


020124 
040514 


EN24: 


ENZ2S: 


EN26: 


ENZ?: 


EN28: 


EM29: 


H 16 
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ERROR MESSAGES 


-ASCIZ 


 ASCIZ 


ASCIZ 


_ ASCH! 


-ASCTIZ 


ASCII 


7VOL VALID NOT SET IN RKMR2/ 


<CRO<LF>/DETECTED 10 BAD SECTORS... ABORTING TEST/ 


/DETECTED BSE BUT NOT LISTED IN BAD SECTOR FILE/ 


/DETECTED BSE IN PEAD COMMAND / 


CR°<LF>/BUT NOT IN PREVIOUS WRITE COMMAND TO SAME SECTORZ 


ONLY OR IVES 0.2.4.0 ALLOWED IN SDEVM’ 


<CR><LF>/PELOAD SDEVM & PRESS CONTINUE/<CR> «LF» 


/PORT AVAILABLE... TIMERS NOT INHIBITED’ 


SEQ 0202 


UNI BUS 
DZR6GA 


10650 
10651 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


.Pil 


061326 
061334 


046102 


045522 


027105 


041101 


051117 
044501 
000105 
047124 
044440 
051501 


052124 
040505 
047111 
047523 
051122 
051440 
020116 
000061 
020114 
O44440 
051115 
020124 
040440 
041504 
046125 
020105 
052116 
051440 


042515 
044504 
020124 
044522 
04 3040 
046125 
047503 


046131 
020106 
051506 
020116 
020062 
046103 
000104 
020114 
044440 
051115 


027056 
051522 
044440 
052111 


051449 
020116 
000062 
047040 
040526 
042514 


020124 
040514 


051440 
020116 
O43117 


020116 
042522 
051040 
000106 
047040 
052105 
045522 


042101 


042505 


052517 
020104 
042522 
043507 
051117 
020114 
042116 


042040 
020046 
052105 
045522 
047516 
040505 


042101 
020116 
020063 


EM30: 


EM31: 


EM32: 


EN33: 


EM34: 


EMSS: 


EM3e6: 


EM38: 


EM39: 


EM4O: 


| 16 
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ERROR MESSAGES 


.ASCIZ 


. ASCIZ 


 ASCIC 


- ASCIZ 


. ASCIZ 


. ASCIZ 


7PIP SET IN RKMR2/ 


7PORT NOT AVAILABLE?’ 


7PORT AVAILABLE? 


7ATTN SET IN RKASOF 7 


/ATTN CLEARED IN RKASOF/ 


/CERR NOT SET IN PKCS1/ 


/CYL ADOR IN RKMR2 NOT SAME AS RKOC/ 


/MULTIPLE ATTENTIONS SEEN’ 


/TIMEQUT DIO NOT RE-TRIGGER FOP FULL SECONCD/ 


/CYL DIFF & OFFSET IN RKMRZ NCT CLEAPED.’ 


/CYL ADDR IN RKMRZ NOT CLEARED’ 


SEQ 0203 


UN | BUS 
DZR6GA 


10706 
10707 
10708 
16709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
10722 
10723 
10724 
10725 
10726 
10727 
10728 
10729 
10730 
10731 
10732 
10733 
10734 
10735 
10736 
10737 
10738 
10739 
10740 
10741 
10742 
10743 
10744 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


.Pil 


062004 
062012 
062020 
062026 


047516 
040505 


054504 


020124 


044522 
051525 


047524 


020124 
041513 


040505 
040524 
047040 
046517 
053440 
051127 
040504 


052101 
041505 
047522 
020124 
042513 
046111 
052111 
047506 
052116 
042101 
040440 
041440 
051040 
051040 


046103 
000104 
047040 
042514 
044440 
051501 


051440 
020116 
000062 
044040 
020122 
000122 
046516 
040503 
04 3504 
042105 


051440 
020116 
000061 
047516 
020124 
046513 


051440 
020116 
000062 
020105 
020113 
020122 
047111 
031123 


020104 
042040 
052117 
040520 
052111 
052111 
040524 


020101 
020113 
020122 
047111 
000122 
020105 
047111 
020122 
020122 
020131 
052106 
047117 
040505 
041505 


EMSS: 


EM63: 


EM6S: 


EM69: 


EN73: 


EN74: 


EN79: 


EM8O: 


EM82: 


EM83: 


EMS84: 


J 16 
MACY11 301046) 29-SEP-77 10:08 PAGE 204 
ERROR MESSAGES 


. ASCIZ 


. ASCIZ 


ASCIZ 


ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


 ASCIZ 


 ASCIZ 


7ATTN NOT CLEARED IN RKASOF/ 


7DLT SET IN RKCS2/ 


7READ HEADER ERROR/ 


7ALIGNMENT CARTRIDGE USED/ 


7CTO SET IN RKCS1Z 


/RTZ NOT SET IN RKMR2/ 


/NED SET IN RKCS2/ 


/WRITE CHECK ERROR SET IN RKCS2/ 


/READ DATA DID NOT COMPARE WITH WRITE DATA/ 


/DATA CHECK ERROR SET iN PREP,’ 


/WHILE WAITING FOR CONTR READY OR AFTER CONTR READY REC'D/ 


UNIBUS RKO6-RKO7 QUAL PORT ORIVE DIAGNOSTIC 
29-SEP-77 09: 55 


DZR6GA. 


10762 
10763 
10764 
10765 
10766 
10767 
10768 
10769 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 
10778 
10779 
10780 
10781 
10782 
10783 
10784 
10785 
10786 
10787 


Pil 


062472 
062475 
062502 
062510 
062516 
062524 
062532 
062540 
062546 
062554 


062556 
062564 
062572 
062573 
062600 
062606 
062614 
062622 
062630 
062636 
062643 
062650 
062656 
062664 
062672 


063136 


042047 

122 
043516 
043516 
047111 
020043 
040505 
027056 
051517 
000116 


042524 
027117 


053111 
050117 
024461 


000 
040505 
053440 
041440 
042504 
047111 
042504 
044515 
052111 


052123 
020040 


046513 
046513 
046513 
042513 
051504 
030523 
031123 
053513 
040502 
004501 
043117 
004503 
051520 
050103 
042524 
047124 
042047 
020115 
020114 
047101 
042524 
052106 
052040 
052125 
047522 
020114 
054503 
046131 
000106 
042524 
051502 
042514 
944103 
027061 
050040 
020102 
020107 
020105 
024040 


044504 EN9S: 
047522 


047511 


047040 
041520 


030522 
031122 


042040 


020122 
051531 
051101 
041505 
052040 
051117 
051525 
051104 
046106 
050104 


K 16 es 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 205 SEQ 0205 
ERROR MESSAGES 


. ASCIZ 


7READING WRONG CYLINDER # IN HEADER... MISPOSITION/ 


.SBTTL DATA HEADERS 


OH1: 


DH2: 


DH3: 


DH4: 


DHS: 


DHe6: 


DH7: 


. ASCIZ 


-ASCIZ 


ASCIZ 


- ASCIZ 


. ASC IZ 


ASCII 


ASCII 


7TEST NO. PC/ 


/7RKMR1 = RKMRZ RKMR3  RKER RKCS RKCS1 RKCS2/7 


/RKWC =e RKBA RKDA RKASOF RKDC RKECPS RKECPT/ 


/AFTER ATTN REC'D FROM RECAL COMMAND/ 


/AFTER SOFTWARE TIMEQUT/ 


/FROM CYL TO CYL CYL DIFF/ 


/AFTER SUBSYS CLEAR’ 


<CR><LF>/CHECK 1. THE PORT B USING ORIWE FLOP (OP1)/ 


UNIBUS 
DZR6GA. 


10818 
10819 
10820 
10821 
10822 
10823 
10824 
10825 
10826 
10827 
10828 
10829 
10830 
10331 
10832 
10833 
10834 
10835 


RKOG-RKO? DUAL PORT . come * 


Pil 29-SEP-77 


063140 
063146 
063154 
063162 
063170 


063612 


005015 


047524 


09:5 


027062 
042526 


042050 


052123 
052011 
041520 
052106 
040524 
044520 
041440 
042116 
042047 
051104 


042440 
020106 
046040 
043516 
050130 
004504 


042524 
045505 


044103 
052123 
042104 
040516 
047506 
040440 
046440 


020116 


O4444O 


042040 


031120 
047040 


O53111 


042116 
042510 


041505 
040527 


020122 
041440 


041505 
052101 
051440 
020114 
042522 
052106 
054125 


042523 


* 020123 


040505 


042514 
020124 
044501 
000105 
042116 


DAT 


DH8: 


DHS: 


DOH10: 


DH11: 


OH12: 


DH13: 


DH14: 


DH15: 


DH16: 


MACY 11 
A HEADERS 


-ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


ASC! 


L 16 
30(104%6) 29-SEP-77 10:08 PAGE 206 


<CR><LF>/2. ORIVE AVAILABLE TO PORT B STATUS (DP2)/ 


7TEST NO. TRAP PC/ 


7AFTER START SPINDLE COMMAND REC'D BY DRIVE/ 


7AT END OF HEAD LOADING/ 


7EXPECTED WAS/ 
7AFTER SEEK CMO/ 


<CR><LF>/CHECK STAT ADD SIGNAL BEFORE & AFTER MUX/ 


“ON SECTORS 10, 12, 1% 16, 18 OR 20 CYL 410 TRACK 2/7 


/OEFORE TIMEQUT OR RELEASE.’ 


/WHILE PORT UNAVAILABLE/ 


/7TO INDICATE THAT REQUESTING PORT CAN SEIZE.’ 


SEQ 0206 


UNIBUS RKO6-RKO? DUAL > a DRIVE DIAGNOSTIC 
DZROGA. P11 


10874 
10875 
10876 
10877 
10878 
10879 
10880 
10881 
10882 
10883 
10884 
10885 
10886 
10887 
10888 
10889 
10890 


063620 
063626 
063634 
063642 
063650 
063656 
063664 
063672 
063700 
063706 
063714 
063722 
063730 
063736 
063741 
063746 
063754 
063762 
063765 


064270 


29-SEP-77 
041511 


043101 


09: 55 
052101 


045503 
040515 


052106 
046105 
051104 
047503 
000104 
042524 
051502 
020115 
000122 
042524 
053111 
040505 
046515 


044124 
042522 
020124 
047111 
042040 
041440 
041440 
042116 
052117 
047520 


052106 
042505 
046515 


042524 


020105 


046511 


051105 
046101 
040515 


051105 
040517 
046515 


020122 
041440 
042116 


051105 
041505 
053111 
046515 


020122 
051531 
046103 


020122 
020105 
020122 
047101 


052517 
052521 
042520 
000107 
044522 
042514 
046517 
052040 
042510 
052122 


051105 
020113 
047101 


620122 


DH17 


OH18: 


DH19: 


DH20: 


D0H21: 


DH22: 


DH23: 


OH24: 


DH25: 


DH26: 


M 16 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 207 
DATA HEADERS 


/ASCIZ 


. ASCIZ 


- ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


. ASCIZ 


-ASC!Z 


<CR><LF>/CHECK PORT REQ. FLOPS & 1 SEC SAFETY TIMER/ 


7AFTER RECAL COMMAND/ 


7AFTER UNLOAD COMMAND/ 


/AFTER PACK COMMAND/ 


7AFTER SELECT ORIVE COMMAND/ 


/AFTER SUBSYSTEM CLEAR/ 


AFTER DRIVE CLEAR COMMAND/ 


/WITHOUT REQUEST PENDING’ 


7BY DRIVE CLEAR COMMAND TO OTHER PORT/ 


/AFTER SEEK COMMAND/ 


/AFTER READ DATA COMMAND’ 


SEQ 0207 


i ES SSRN SSS 


; o i 
UNIDUS RAUO"RAUr VURL FURT URIVE DIAGNOSTIC MACTIL 36.1040) 29-SEP-77 10: U8 PAGE 208 SEQ 0208 
OZR6GA. P11 29-SEP-77 09: 55 DATA HEADERS 


10920 064276 042522 042101 042040 
10931 064304 052101 020101 047503 
10932 064312 046515 047101 000104 
10933 064320 043101 042524 020122 DH27: .ASCIZ /AFTER WRITE DATA COMMAND/ 
10934 064326 9051127 052111 020105 
10935 064334 O40504 040524 041440 
19936 064342 046517 O40515 042116 


10938 064351 011 054105 042520 DHZ8: .ASCIZ 7¢ EXPECT/ 

19939 064356 052103 000 

10940 064361 O11 041501 052524 ODHZ29: .ASCIZ 7 ACTUAL / 

10541 064366 046101 000 

10942 064371 101 052106 051105 OH30: .ASC!Z /AFTER READ HEADER COMMAND/ 


10943 064376 051040 040505 920104 
10944 064404 042510 042101 051105 
10945 064412 O414490 046517 040515 


10947 064423 101 004460 0230102 DH3i: -ASCIZ2 /AD 80 Al Bi A2 B2 B3/ 
10948 O6443C 040411 004461 030502 
10949 064436 040411 OO4462 031102 


10951 064450 043101 042524 020122 ODH32: .ASCIZ ZAFTER WRITE CHECK COMMAND/ 
10952 064456 051127 052111 020105 
10953 064464 044103 041505 020113 
10954 064472 047503 046515 647101 


10956 064502 043101 042524 020122 DH35: ASC!Z /AFTER RELEASE ISSUED’ 
10957 064510 642522 042514 061501 
10958 064516 020105 051511 0525235 


10960 064527 101 052106 051105 OH36: .ASCIZ /AFTER SELECT DRIVE COMMAND & DRIVE NOT AVAILABLE/ 
10961 Ge4¥S34 051440 046105 041505 ’ ’ 

10962 064542 020124 051104 053111 

10963 064550 020105 047503 046515 

10965 064556 047101 020104 020046 

10965 064564 051104 053111 020105 

10966 064572 047516 020124 053101 . 
10967 O64%e00 044501 040514 046102 


10969 G64610 943101 042524 020122 DH37: .ASCIZ /AFTEP RELEASE ISSUEO & PORT REQUEST PENDING/ 
10970 064616 042522 042514 051501 
10971 O64624 020105 051511 052523 
10972 064632 642195 023040 950040 
10973 Oe4¥e4xO0 051!17 020124 042522 
10974 064646 052521 9051505 020124 
10975 064654 042520 O4Z1i6 O471%i 


10977 064664 043101 042524 020122 OH38: .ASCIZ /AFTER DELAY FROM SEEK & IMMEDIATE RELEASE/ 
10978 064672 042504 040514 020131 

10979 064700 051106 046517 051440 

10980 064706 042505 020113 920046 

10981 064714 046511 042515 044504 

10982 064722 052101 020105 042522 

10983 064730 042514 051501 000105 ; 

10984 064736 O43101 042524 020122 OH39: -ASCIZ /AFTER WRITE HEADER COMMAND’ 

10985 064744 051127 052111 020105 








UN! BUS RKO6-RKO? DUAL > ae DRIVE DIAGNOSTIC 
OZROGA. P11 


10986 
19987 


064752 


065446 


29-SEP-77 
042510 


042111 


09: 55 
042101 


051105 
040515 


021504 
4 


040503 
046515 


042510 
043125 


046101 


DH40: 


DH4 1: 


DH42Z: 


DH4 3: 


DH44: 


DH4S: 


DHY9: 


eS 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 209 
DATA HEADERS 


ASCIZ 


-ASCIZ 


ASCIZ 


. ASCIZ 


7WORD# HEADER WAS SHOULD BE/ 


7DURING RECAL COMMAND/ 


<CR><LF>/CHECK BUFF1 SIGNAL BEFORE & AFTER MUX/ 


/ON SECTORS 0.2.4.6 OR 8 CYL 410 TRACK 2/ 


/AFTER RE-SEIZE PORT MID-WAY IN NORMAL TIMEOUT/ 


/FORMAT & ALL PEAD-WRITE TESTS WILL BE BYPASSED/ 


/BEFOPE RELEASE WHILE HEADS UNLCADED/ 


/MSG A & B IN RKMRZ & RKMR3 RESP. ARE INVALID/ 


sea 0209 | 


UNIBUS RKO6-RKO? DUAL 9: +a DIAGNOSTIC 


DZROGA. P11 


11042 
11043 
11044 
11045 
11046 
11047 
11048 
11049 
11050 
11051 
11052 
11053 
11054 
11055 
11056 
11057 
11058 
11059 
11060 
11061 
11062 
11063 
11064 
11065 
11066 
11067 
11068 
11069 
11070 
11071 
11072 
11073 
11074 
11075 
11076 
11077 
11078 
11079 
11080 
11081 
11082 
11083 
11084 
11085 
11086 
11087 
11088 
11089 
11090 
11091 
11092 
11093 
11094 
11095 
11096 
11097 


065451 
065456 


‘065464 


065472 
065500 
065504 
065512 
065520 
065526 


065530 
065534 
065542 
065550 
065552 
065560 
065566 
065570 
065574 
065602 
065606 
065614 
065622 
065624 
065632 
065640 
065642 
065650 
065652 
065660 
065666 
065670 
065676 
065704 
065706 
065714 
065720 
065726 
065734 
065736 
065744 
065752 
065754 
065762 
065766 
065774 
066002 
066004 
066012 
066020 
066022 
066030 
066032 


29-SEP-77 


101 
051440 
047524 
020106 
047101 
054503 
042510 
053440 
000060 


001214 
005340 


005340 


052106 


051117 


001116 
005342 
005326 


005322 
005334 


001334 
001116 
001354 
005342 
005326 


005322 
005334 


001116 


005342 
005326 


005322 
005334 


001116 
005352 
005342 
005326 


005322 
005334 


001116 
001354 
005342 
005326 


005322 
005334 


001116 
005342 


051105 
020113 
046105 
046515 
004443 


051105 
020104 


005344 
005314 


005324 
005346 
001344 


005344 
005314 


005324 
005346 


001416 


005344 
005314 


005324 
005346 


001432 


005344 
005314 


005324 
005346 


001346 


005344 
005314 


005324 
005346 


001346 
N05344 


D 1 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 210 


DATA HEADERS 


DHS1: 


DHS6: 


.ASCIZ AFTER SEEK TO SELF COMMAND/ 


.ASCIZ /CYL # HEADER WORD 0/ 


.SBTTL ERROR OUTPUT DATA 


OT1: 


OT?2: 


OT4: 


OTe: 


OT?: 


OT8: 


OT9: 


EVEN 
STESTN, SERRPC 
HMR 1, HMRZ, HMR3, HER, HDS. HCS1.HCS2 


HWC, HBA, HDA, HASOF, HDC, HPOS. HPAT 

STESTN, TRAPPC 

STESTN, SERRPC, FRCYL, TOCYL, CALDIF 
HMR 1, HMR2, HMR3. HER, HDS, HCS1, HCS2 


HWC, HBA. HOR, HASOF, HDC. HPOS, HPAT 


STESTN, SERRPC, WD2, WO1 
HMR 1, HMR2Z. HMR3. HER. HDS. HCS1,HCS2 


HWC. HBA. HDA, HASOF. HDC, HP OS. HPAT 


STESTN, SERRPC, WOCNT, HOWD, TEMP i 
HMR 1,HMRZ, HMR3, HER, HDS, HCS1,HCS2 


HWC. HBA, HDA, HASOF, HDC, HPOS, HPAT 


STESTN. SERRPC, TOCYL, FRCYL, CALDIF 
HMR 1,HMR2, HMR3. HER, HDS. HCS1. HCSZ 


HWC, HBA. HDA, HASOF, HDC, HPOS. HPAT 


STESTN. SERRPC, TOCYL, RHTAB 
HMR1.HMR2, HNR3, HER, HDS. HCS1, HCS2 


SEQ 0210 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


11098 
11099 


066040 
066046 
066050 
066056 
066064 
066066 
066074 
066102 
066110 
C66112 
066120 
066126 
066130 
066136 
066144 
066146 
066154 
066162 
066166 
066174 
066202 
066210 
066216 
066220 
066226 
066234 
066236 
066244 
066252 
066260 
066266 
066274 
066276 
066304 
066312 
066314 
066322 
066330 


066332 
066334 
066336 
066340 
066342 
066344 


066346 
066350 


066352 
066354 
066356 
066360 
066362 


29-SEP-77 09: 55 


005330 


005316 
005320 
005332 
005350 


000003 


000001 
002 


000005 


063337 


005326 


005322 
005334 


001116 
005410 
005366 


005342 
005326 


005322 
005334 


001116 
005410 
005416 
005366 
005374 
005342 
005326 


005322 
005334 


001116 
005410 
005416 
005366 
005374 


005342 
005326 


005322 
005334 


000 
000 
000 


000 


000 
000 


005314 


005324" 


005346 


005404 
005412 
005370 


005344 
005314 


005324 
005346 


005404 
005412 


005370 
005376 
005344 
005314 


005324 
005346 


005404 
005412 


005370 
005376 


005344 
005314 


005324 
005346 


. 3 
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ERROR OUTPUT DATA 


DT13: 


DT14: 


DT15: 


. SBTTL 
OF 1: 


DF 2: 


OF 3: 


HWC, HBA, HDA, HASOF. HOC. HP OS. HPAT 


STESTN, SERRPC,E. AO. E. BO. E. Al, €. B1,H. AO. H. BO. H. Al, H. B1 


HMR 1,HMRZ, HMR3, HER, HDS, HCS1,HCS2 


HWC, HBA, HDA, HASOF, HDC, HPOS, HPAT 


STESTN, SERRPC.E. AQ.E. BO. E. A1,E. B1,E. A2,E. B2 


H. AQ, H. BO. H. Al, H. B1,H. AZ,H. B2 
HMR1,HMR2. HMR3. HER, HDS. HCS1,HCS2 


HWC, HBA, HDG, HASOF, HDC, HPOS, HPAT 


STESTN. SERRPC,E.AQ.E. BO.E. A1,E. B1,£.A2,€. B2,E. B3 


H. AO, H. BC. H. A1,H. B1,H. AZ,H. B2,H. BS 


HMR1,HMR2,HMR3, HER, HDS, HCS1-HCS 


HWC, HBA. HDA, HASOF, HDC, HPOS. HPAT 


ERROR DATA FORMATS 


BYTE 2,0 
DH2 

BYTE 7,0 
DH3 

.BYTE ¢ 

1 

.BYTE 2,0 
5 

.BYTE ¢.0 
DH1 

.BYTE 2,0 
DH11 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


DZR6GA 


ee me et et et et ot et 
ee ee ee et et ot et ot 
— 
o 
£ 


- 
— 
“SI 
oO 


. Pil 


066364 
066366 
066370 
066372 
066374 


066376 
066400 
066402 
066404 
066406 
066410 


066412 
066414 
066416 
066420 
066422 
066424 
066426 
0664 30 
066432 
0664 34 


0664 36 
066440 
066442 
066444 
066446 
066450 
066452 
C56454 
066456 
066460 


066462 
066464 
066466 
066470 
066472 
066474 
066476 
066500 


066502 
066504 
066506 
066510 
066512 
066514 
066516 
066520 


066522 


000004 


000 
000 
000 


000 
000 
000 


000 
000 
coo 
000 
000 


coo 
000 
000 
000 
000 


000 
000 
000 
000 


000 
000 
000 
000 


xs 
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ERROR DATA FORMATS 


DF4: 


DFS: 


OF oe: 


DF IC 


DF 14: 


DF 15: 


4 


2.0 
7,0 


ao ood. oOo © 


2.0 
7,0 


SEQ 0212 





UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 


11210 
11211 
11212 
11213 
11214 
11215 
11216 
11217 
11218 
11219 
11220 
11221 
11222 
11223 
11224 
11225 
i1226 
11227 
11228 
11229 
11230 
11231 
11232 


066524 
066526 
066530 
066532 
066534 
066536 
066540 


066542 
066544 
066546 
066550 
066552 
066554 
066556 
066560 
066562 
066564 
066566 
066570 
066572 
066574 
066576 


- 066600 


066602 
066604 
066606 
066610 


066612 
066614 
066616 
066620 
06€622 
066624 
066626 
066630 
066632 
066634 
066636 
066640 
066642 
066644 


066646 
066650 
066652 
066654 
066656 
066660 
066662 
066664 
066666 
066670 
066672 
066674 


29-SEP-77 09: 55 


000 
000 
000 
006 


000 
000 
000 
000 
000 
coo 
000 
000 
600 
000 


000 
000 
000 
000 
000 
000 


000 


000 
000 
000 
000 
000 
000 


G 
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. 


ERROR DATA FORMATS 


OF 17: 


DF 20: 


DF 22: 


0,0 
2,0 
7.0 
7,0 


0,0 
0,0 
2.0 
7,0 
7,0 
0,0 
2,0 
2,9 
7,0 
7,0 


SEQ 0213 





H 1 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 214 SEQ 0214 


DZROGA. P11 


11266 
11267 
11268 
11269 
11270 
11271 
11272 
11273 
11274 
11275 
11276 
11277 
11278 
11279 
11280 
11281 
11282 


11283 » 


11284 
11285 
11286 
11287 
11288 
11289 
11290 
11291 
11292 
11293 
11294 
11295 
11296 
11297 
11298 
11299 
11300 
11301 


066676 
066700 


066702 
066704 
066706 
066710 
066712 
066714 
066716 
066720 
066722 
066724 
066726 
066730 
066732 
0667 34 


0667 36 
066740 
066744 
066750 
066754 
066756 
066760 
066762 


29-SEP-77 09: 55 


062643 
007 


000007 


104413 
104401 
113700 
042700 
005300 
006300 
006300 
006300 


000 


000 
000 
000 
000 
000 
000 
000 


056567 
001114 
177400 


ERROR DATA FORMATS 


DH3 
.BYTE 7,0 
DF 23: ? 

.BYTE 0.0 
DH1 

.BYTE 2,0 
DH28 

.BYTE 0,0 
DH31 

.BYTE 7.0 
DH29 

.BYTE 7,0 
DH2 

.BYTE 7,0 
DH3 

.BYTE 7.0 


. EVEN 

[OOOO OOOO IOI III III III III II 
.SBTTL TYPE ERROR ROUTINE 

> KENTRY JSR PC, TYP ERR 

;XRETURN RTS PC 


ix 

; THIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
>KERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE" (SERRTB) 
;XENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 

> XTHE ERROR. 
[UII IOOOIOIICOII IOI III 
TYPERR: SAVREG 


TYPE -MSG19 >PORT A OR B 

MOVB SITEMB, RO 7 ENTER ERROR NUMBER 

BIC #177400,R0 >CLEAR SIGN EXTENSION 

DEC RO 7;FORM INDEX FOR CRROR TABLE 
ASL RO 

ASL RO 

ASL RO 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6OGA. P11 


11302 
11303 
11304 
11305 
11306 
11307 
11308 
11309 
11310 
11311 
11312 
11313 
11314 
11315 
11316 
11317 
11318 
11319 
11320 
11321 
11322 
11323 
11324 
11325 
11326 
11327 
11328 


066764 


067062 
067064 


29-SEP-77 09: 55 


062700 
012037 
001404 
104401 
104401 
000000 
012037 
001404 
104401 
104401 
000000 
012001 
001455 
005004 
012000 
012002 
001446 
005104 
104401 
112003 
105720 
005703 
001407 
013146 
104402 
005303 
001403 


005470 
067004 


001205 


067022 
001205 


001205 


MACY11 30(1046) 


TYPE ERROR ROUTINE 


1$: 


23: 
35: 


4S: 
5S: 


10S: 


11%: 


#SERRTB, RO 
(RO) +, 2$ 
3$ 


» SCRLF 


0 
(RO)+,4$ 
5$ 

» SCRLF 


(RO)+,RO 
(RO)+,R2 


14% 


. % 
29-SEP-77 


10:08 PAGE 215 SEQ 0215 


; FORM ADDRESS OF ERROR ENTRY 
GET EM POINTER 

;BRANCH IF THERE ISN'T ONE 

; TYPE CARRIAGE RETURN LINE FEED 
+ TYPE ERROR MESSAGE (EM) 

+EM POINTER GOES HERE 

GET DH POINTER 

BRANCH IF THERE ISN'T ONE 

+ TYPE CR-LF 

+ TYPE DATA HEADER 

+DH POINTER GOES HERE 

GET OT POINTER 

;BRANCH IF THERE ARE NONE 
SET INDENT SWITCH 

GET DF POINTER 

STORE NUMBER OF DH'S 

DH NUM 1S O-BRANCH 

NO INDENT 


;GET & STORE NUMBER OF DATA WORDS 
;BUMP PAST FORMAT WORD 

; TEST IF ANY DATA FOR THIS HEADER 
;NO - SKIP DATA PRINT 

;PUT FIRST DATA WORD ON STACK 
STYPE tT 

>MORE DATA WORDS 

; NO-BRANCH 





UNIBUS RKO6-RKO7 DUAL PORT ORIVE DIAGNOSTIC 


DZR6GA. P11 


11329 
11330 
11331 
11332 
11333 
11334 
11335 
11336 
11337 
11338 
11339 
11340 
11341 
11342 
11343 
11344 
11345 
11346 
11347 
11348 
11349 
11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11368 
11369 
11370 
11371 
11372 
11373 
11374 
11375 
11376 
11377 
11378 
11379 
11380 
11381 
11382 
11383 
11384 


067066 
067072 
067074 
067076 
067100 
067104 
067110 
067112 
067114 
067116 
067122 
067126 
067130 
067132 
067134 
067136 
067142 
067144 
067150 
067152 
067154 
067160 
067162 


067164 
067172 
067174 
067202 
067204 
067210 


067214 
067216 


29-SEP-77 09: 55 


104401 
000771 
005302 
003431 
104401 
005760 
001404 
005104 
001002 
104401 
012037 
104401 
oo0co00 
105710 
601003 
062700 
000754 
104401 
005704 
001335 
104401 
000732 
104414 


032777 
001410 
023727 
001004 
012706 
006137 


000207 
020040 


067222 
067392 
000000 
000001 
000002 
000003 
000004 
, 000005 
000006 
000007 
177776 


006014 
000340 
000020 


067216 


001205 
000002 


067216 
067130 


000002 
001205 


067216 
010000 
001103 
001100 


042644 


000 


111746 
000024 


J 1 
MACY11 30(104%6) 29-SEP-77 10:08 PAGE 216 
TYPE ERROR ROUTINE 


TYPE » SPACE2 
11% 


ap SEPARATORS 
+MORE DH'S? 


14S: DEC RZ 
BLE 203 ; NO-BRANCH 
TYPE , SCRLF 
TST 2(RO) ; ONLY A DH IN THIS REQUEST? 
BEQ 155 ; YES-BRANCH BYPASS INDENT 
COM RY + INDENT? 
BNE 15% 7 NO-BRANCH 
TYPE » SPACEZ > YES-TYPE SPICES 
15S: MoV (RO) +, 16% ;GET NEXT DH POINTER 
TYPE + TYPE DH 
165: .WORD O :DH A ys GOES HERE 
TSTB (RO) > TYPE A 
BNE 215 + YES- perc 
ADD #2,-RO0 ; INCREMENT DF POINTER 
BR 14 ;SEE IF END OF DF BLOCK 
215: TYPE , SCRLF 
TST RY + INDENT? 
BNE 10% ; NO-BRANCH 
175: TYPE , SPACE2 ;YES-TYPE SPACES 
BR 10$ +; LOOP 
205: RESREG 
BIT #SW12,dSWR ;SEE IF ABORT DRV AFTER 20 ERRORS 
BEQ 25% ;BR IF NO 
CMP SERFLG. #20. ;ELSE SEE IF HAVE 20 ERRORS 
BNE 253 ; IF NO 
MOV # STACK, SP ;ELSE RESTORE STACK PTR 
JMP SEOP ;AND GO TO NEXT DRV 
255: RTS PC 
SPACE2: .ASCIZ/ / 32 SPACES 
; ODT-11 -- vOOSA 
; DEC-11-U0DPA-A-LA ‘ 
; COPYRIGHT 1969, 1970, 1972 
; DIGITAL EQUIPMENT CORPORATION 
; MAYNARD, MASSACHUSETTS 01754 
.ENABL ABS. AMA 
_ EVEN 
=. +60 
RO = %0 > REGISTER 
R1 = “1 > NAMING 
R2 s x2 CONVENTIONS 
R3 = %3 
RY = %4 
RS es %5 
SP = %6 
PC = yf 
ST = 177776 ; STATUS REGISTER 
0. TVEC = 14 > TRT VECTOR LOCATION 
0. STM = 340 ;PRIORITY MASK - STATUS REGISTER 
0. TBT Fa 20 ;T-BIT MASK - STATUS REGISTER 


SEQ 0216 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 


11385 
11386 
11387 
11388 
11389 
112390 
11391 
11392 
11393 
11394 
11395 
11396 
11397 
11398 
11399 
11400 
11401 
11402 
11403 
11404 
11405 
11406 
11407 
11408 
11409 
11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 
11418 
11419 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11428 
11429 
11430 
11431 
11432 
11433 
11434 
11435 
11436 
“11437 
11438 
11439 
11440 


067302 
067304 
067306 
067314 
067322 
067326 


067332 
067336 
067342 
067344 
067350 
067356 
067362 
067364 
067366 
067370 
067374 
067376 
067400 
067406 
067412 
067420 
067426 


067430 
067434 
067440 
067442 
067444 
067450 


29-SEP-77 09: 55 


000003 
000006 


177562 
177560 
177566 
177564 


000413 
000417 
013737 
013737 
010737 
000137 


012706 
010637 
000414 
004037 
013777 
113704 
106004 
106004 
106004 
110437 
000127 
000403 
012737 
105037 
012737 
012737 
000447 


004537 
012704 
120024 
001413 
022704 
101373 


177776 
000016 
067260 
070460 


067242 
067256 


070666 
067300 
067264 


177776 


000002 
071307 
000340 
070450 


071110 
071333 


071341 


067262 
177776 


177716 


070370 


000016 
000014 


TYPE ERROR ROUTINE 


000003 
000006 


; RESIDES IN IT. 


K 1 
MACY11 30(1046) 29-SEP- 


R5 1S USUALLY CONSIDERED SAFE. 
AFTER A BREAKPOINT. 
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;TRT INSTRUCTION 
RTT INSTRUCTION 


THE CURRENT ADDRESS WORD 
IT 1S SET TO ZERO. AND SEARCH 
OTHERWISE, IT SHOULD NOT 


; BE USED EXCEPT FOR JSR'S AND THE CURRENT ADDRESS POINTER (CAD) 


; OPERATIONS LEAVE IT RANDOMLY FILLED 


ROB = 177562 ;R DATA 
RCSR = 177560 ;R C/SR 
TOB = 177566 ;T DATA 

= 177564 ;T C/SR 
INITIALIZE ODT 


USE 0. ODT FOR A NORMAL ENTRY 
USE 0. ODT+2 TO RESTART ODT - 
USE 0. ODT+4 TO RE-ENTER (I.E. 


> GX Ss Se HES Ss GOOG 
o 
nr 
wn 
7o 


ODT: BR 0. STRT 

BR 0. RST 

.ENTR: MOV ST. 0. UST 
MOV 0. TVEC +2, ST 
MoV PC, 0. UPC 
JMP 0. BK1 

0. STRT: MOV #0. URO, SP 
MoV SP, 0. USP 
BR 0. RST1 

O.RST: JSR 0,0. SUR 
MOV 0. UIN, 00. ADR1 
MOVB 0. PRI,RY 
RORB RY 
RORB R4 
RORB RY 
MOVB R4, ST 

0. RST1: JMP (PC)+ 
BR 0.45 
MoV aRTI,O. RTIT 

QO. 45: CLRB 0.P 
MoV #0. STM, 0. TVEC+2 
MOV #0. BRK, 0. TVEC 
BR 0. RALL 

; SPECIAL NAME HANDLER 

O. REGT: JSR 5,0. GET 
MOV #0. TL, R4 

O. RSP: CMPB RO. (R4)+ 
BEQ 0. SP 
CMP #0. TL+0.LG,R4 
BHI 0. RSP 


BUFFER 
BUFFER 


WIPING OUT ALL BREAKPOINTS 
- FAKE A BREAKPOINT) 


NORMAL ENTRY 

+RESTART 

; RE-ENTER SAVE STATUS 
+SET UP LOCAL STATUS 

;FAKE THE PC 


+SET UP STACK 

;FAKE THE SAVED STACK 
;CLEAR BREAKPOINT TABLES 
; SAVE REGISTERS 

REMOVE THE BREAKPOINT 
GET ODT PRIORITY 


> POSITION 
[STORE IN STATUS 


;SET TO RT! IF 11720 OR 705 
*DISALLOW PROCEED 

+ STATUS WORD TO TRT VECTOR + 2 
PC TO TRT VECTOR 

;CLEAR BREAKPOINT TABLES 


DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0. TL AND O. URO 


;SPECIAL NAME. GET ONE MORE CHARACTER 
; TABLE START ADDRESS 

> 1S THIS THE CORRECT CHARACTER? 

; JUMP IF YES 

+ 1S THE SEARCH DONE? 

;BRANCH IF NOT 


SEQ 0217 


UNIBUS 


DZROGA. 


11441 
11442 
11443 
11444 
11445 
11446 
11447 
11448 
11449 
11450 
11451 
11452 
11453 
11454 
11455 
11456 
11457 
11458 
11459 
11460 
11461 
11462 
11463 
11464 
11465 
11466 
11467 
11468 
11469 
11470 
11471 
11472 
11473 
11474 
11475 
11476 
11477 
11478 
11479 
11480 
11481 
11482 
11483 
11484 
11485 
11486 
11487 
11488 
11489 
11490 
11491 
11492 
11493 
11494 
11495 
11496 


Pil 


067452 
067456 
067460 
067462 
067466 
067470 
067472 
067476 


067500 
067504 
067506 
067510 
067512 
067514 
067516 
067520 
067522 


067526 
067530 
067532 
067534 
067536 
067540 
067544 
067546 
067554 


067556 
067562 


067640 
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042700 
010004 
006304 
062704 
005202 
000444 
162704 
000770 


004737 
010502 
061202 
006202 
103421 
006302 
005722 
010205 
000137 


005702 
001406 
006204 
103410 
0063n4 
010437 
000412 
012737 
000406 


052705 
012700 
004537 
004537 
005004 
005002 
004537 
022700 
101013 
022700 
103410 
042700 
006304 
006304 
006304 
066004 
005202 
000760 


177770 


067242 


071324 


071234 


067774 


067274 
071350 


000001 
000077 
071166 
071266 


071110 
000060 
000067 
177770 


067274 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


MACY11 30(1046) 


TYPE ERROR ROUTINE 


0 


we Be 


SP 1: 


, SP: SUB 


- HANDLER 
.ORPC: JSR 
M 


B HANDLER 
.BKPT: TST 


RALL: 


6 etme 
RY 

#0. URO. RY 
R2 

0. SCAN 

#0. TL-7,R4 
0. SP1 


PC. 0. TCLS 
R5,R2 


R4,0. ADR1 


0. OCD 
#0. TRTC, 0. ADR1 


0. OCD 


COMMAND DECODER - ODT11 


REGISTERS RO-RY MAY BE USED. 


. i 
29-SEP-77 
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;MASK OFF OCTAL 


;GENERATE ADDRESS 

> SET FOUND FLAG 

GO FIND NEXT CHARACTER 
+ CORRECT CONSTANT 


- OPEN INDEXED ON THE PC 


ooure ADDRESS IN R2 
+ COMPUTE 

;MOVE ONE BIT TO CARRY 
ERROR !F ODD NUMBER 
RESTORE WORD 

; AND INCREMENT BY TWO 
; UPDATE CAD 

+GO FINISH UP 


- SET AND REMOVE BREAKPOINTS 


+ 1F NO NUMBER TYPED 
; REMOVE BREAKPOINT 
CHECK IF ODD 

; JUMP IF OOD 
;RESTORE ONE BIT 
;SET A BREAKPOINT 


CLEAR BREAKPOINT 


REGISTER RS WILL BE CONSIDERED SAFE 


. ERR: 


OCD: 
0CcD1: 


. SCAN: 


0. CLGL 


; CLOSE EVERYTHING 

; * TO OE TYPED 

; OUTPUT ? 

; TYPE <CR><LF>X 

>; RY CONTAINS THE CONVERTED OCTAL 
+; R2 |S THE NUMBER FOUND FLAG 
;GET A CHAR, RETURN IN RO 

; COMPARE WITH ASCII O 

;CHECK LEGALITY IF ‘6 x -NUMER IC 
; COMPARE WITH ASCII 7 

+CHECK LEGALITY IF ‘Not OCTAL 

+ CONVERT TO BCD 

> MAKE ROOM 

; om 

: RY 

;PACK THREE BITS IN RY 


*R2 HAS NUMERIC FLAG 
; AND TRY AGAIN 


SEQ 0218 


UN! BUS 
DZR6GA 


11497 
11498 
11499 
11500 
11501 
11502 
11503 
11504 
11505 
11506 
11507 
11508 
11509 
11510 
11511 
11512 
11513 
11514 
11515 
11516 
11517 
11518 
11519 
11520 
11521 
11522 
11523 
11524 
11525 
17526 
11527 
11528 
11529 
11530 
11531 
11532 
11533 
11534 
11535 
11536 
11537 
11538 
11539 
11540 
11541 
11542 
11543 
11544 
11545 
11546 
11547 
11548 
11549 
11550 
11551 
11552 


RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


. Pil 


067642 
067644 
067650 
067652 
067654 
067660 
067662 
067664 
067666 


067672 
067674 
067676 
067700 
067702 
067704 
067706 


067710 
067712 
067714 
067716 
067720 


067722 
067724 
067726 
067730 
067732 
067734 
067736 
067740 
067744 
067746 
067752 


067754 
067760 
067764 


067766 
067772 
067774 
070000 
070002 
070006 
070012 
070016 
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005001 


006301 
000171 


067722 
067754 
067430 
070264 
067766 
067500 
070020 


070030 
070106 
070102 
067526 
070372 
000030 


005702 
001410 
010405 
006205 
103711 
006305 
011500 
004537 
000714 
042705 
000766 


004737 
052705 
000702 


004737 
005725 
004537 
010500 
004537 
012700 
004537 
000744 


071317 


000014 


067672 


071024 
000001 


071234 
000001 


071234 
071260 
071024 


000057 
071166 


TYPE ERROR ROUTINE 


0. CLGL: CLR 
0. LGL1: CMPB 


0. 


0 


B 
LGL2: ASL 


LGDR: ©. WROD 


"eS9999 S99990 
Oo 
mn 
[74] 
a 


LGL 


Ri 

RO. 0. LGCH(R1) 
0. LGL2 

Ri 

R1, #0. CLGT 

0. ERR 

0. LGL1 


Ri 
00. LGDR(R1) 


Mm 1 
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+CLEAR INDEX 

+DO THE CODES MATCH? 

+ JUMP IF YES 

+ SET INDEX FOR NEXT SEARCH 
+ 1S THE SEARCH DONE? 

; OOPS! 


;RE-LOOP 
ZMULTIPLY BY THO 
[GO TO PROPER ROUTINE 


/ OPEN WORD 
CARRIAGE RETURN CLOSE 


$ REGISTER 


<LF> MODIFY, 


OPS 


CLOSE. OPEN NEXT 


- OPEN RELATED, INDEX - PC 
OPEN PREVIOUS 


G GO TO ADDRESS K 


OFFSET 


. . » . . 
 VOaMIroO 


; PROCEED 
.~9. LGOR 


> PROCESS 7 - OPEN WORD 


WRD: TST 
BEQ 
MOV 


.WRO1: ASR 


ERR2: BCS 
ASL 
MOV 
JSR 
BR 


.WROA: BIC 


PROCESS CARRIAGE RETURN 


.CRET: JSR 
BIS 


> PROCESS <LF>. 


*: 


OP1: JSR 
OP2: JSR 


PC,0. TCLS 
#1,R5 

0 OCD 

OPEN NEXT WORD 


PC,0. TCLS 


SEARCH WORD 
SEARCH EFFECTIVE ADDRESS 
BREAKPOINTS 


*LGL MUST EQUAL 2X CHLGT ALWAYS 


+GET VALUE IF RZ 1S NON-ZERO 
+SKIP OTHERWISE 

; PUT VALUE IN CAD 
;MOVE ONE BIT TO CARRY 

; JUMP IF ODD ADDRESS 
7RESTORE THE CARRY BIT 
+GET CONTENTS OF WORD 

>GO GET AND TYPE OUT aCAD 
+GO BACK TO DECODER 
+CLEAR CLOSED BIT 

>GO BACK TO MAIN-LINE 


>CLOSE LOCATION 
*CLOSE EVERYTHING 
+RETURN TO DECODER 


+CLOSE PRESENT CELL 
GENERATE NEW ADDRESS 
7 <CR><LFD 

+NUMBER TO TYPE 

+ TYPE OUT ADDRESS 
TYPE A 7 


GO PROCESS IT 


SEQ 0219 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 


11553 


070020 
070024 
070026 


070030 
070032 
070034 
070036 
070042 
070046 
070050 
070052 
070054 
070056 
070060 
070064 
070066 
070070 
070072 
070076 


070102 
070104 
070106 
070110 
070112 
070114 
070120 
070124 
070! 26 
070132 
070134 
070136 
070140 
070142 
070144 
070146 
070150 
070152 
070154 
070156 
070160 
070162 
070166 
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004737 071234 
005745 
000762 


006205 
103737 


000040 
071166 


071024 


071024 


000137 067576 


005201 
000401 
005001 
005702 
001621 
013702 
013705 
005105 
020237 
101217 
011200 
005701 
001027 
010046 
010403 
040400 
042603 
050003 
040563 
001016 
016446 
004537 
010200 


067270 
067266 


067272 


071260 


TYPE ERROR ROUTINE 
+ PROCESS . OPEN PREVIOUS WORD 


0. BACK: JSR PC,0. TCLS 
TST -(R5) 
BR 0. 0P2 


PROCESS 0, COMPUTE OFFSET 
0. OFST: ASR RS 
BCS 


ASL 

MOV #' , 

JSR 5,0. F TYP 

SUB R5,R4 

DEC RY 

DEC RY 

MOV R4,RO 

MOV R4,R2 

JSR 5,0. CADV 

MOV R2,RO 

ASR RO 

BCS 0. OF 1 

JSR 5,0. CADV 
0. OF 1:  JMP 0. OCD1 


> SEARCHES - SMSK 


N 1 
MACY11 30(1046) 29-SEP- 


HAS THE MASK 
SMSK+2 HAS THE FWA 
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GENERATE NEW ADDRESS 
+GO DO THE REST 


+GET LOW ORDER BIT 
ERROR IF CLOSED 
;RESTORE WORD 

+ TYPE ONE BLANK 

+ AS A SEPARATOR 

+ COMPUTE 


; 16 BIT OFFSET 
,TYPE A 


SAVE RY 
:NUMBER IN RO - WORD MODE 


*DIVIDE BY TWO 

+BRANCH IF ODD 

+NUMBER IN RO - BYTE MODE 
+ALL DONE 


SMSK+4 HAS THE LWA 


O.€FF: iC Ri 

BR 0. WOS 
QO. WSCH: CLR R1 
0.WOS: TST R2 
O. ERR1: Bea 0. ERR 


MoV 0. MSK, RS 


COM R5 

0. WOS2: CMP R2,0. MSK+4 
BHI 0. OCD 
MoV OR2.R0 
TST Ri 


BNE 0. EFF 1 
MoV Rd. - (SP) 


MOV R4, 23 
BIC R4,RO 
BIC (SP)+,R23 
BIS RO.R3 
BIC RS,.R3 

0. WOS3: BNE 0. WOS4 


MOV R4, -(SP) 
JSR 5,0. CRLF 
MoV RZ,RO 


*+SET EFFECTIVE SEARCH 


*SET WORD SEARCH 

+CHECK FOR OBJECT FOUND 
ERROR IF NO OBJECT 

>SET ORIGIN 

SET MASK 

>AND COMPLEMENT IT 

+ 1S THE SEARCH ALL DONE? 


s.. VES 

> GET OBJECT 

;NO 

>BRANCH IF EFFECTIVE SEARCH 
, EXCLUSIVE OR 


> tS DONE 
; INA VERY 
: FANCY MANNER HERE 
>AND RESULT WITH MASK 
;RE-LOOP IF NO MATCH 
;REGISTERS R2.R4, AND RS ARE SAFE 
; TYPE <CR.LF> 
GET READY TO TYPE 


SEQ 0220 





{ 
UNIBUS 
DZR6GA. 


11609 
11610 
11611 
11612 
11613 
11614 
11615 
11616 
11617 
11618 
11619 
11620 
11621 
11622 
11623 
11624 
11625 
11626 
11627 
11628 
11629 
11630 
11631 
11632 
11633 
11634 
11635 
11636 
11637 
11638 
11639 
11640 
11641 
11642 
11643 
11644 
11645 
11646 
11647 
11648 
11649 
11650 
11651 
11652 
11653 
11654 
11655 
11656 
11657 
11658 
11659 
11660 
11661 
11662 
11663 
11664 





RKOb-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 


Pil 
070170 


070256 
070260 
070262 


070264 
070270 
070272 
070274 
070276 
070302 
070310 
070314 
070320 
070326 
070334 
070342 
070344 
070346 
070350 
070352 
070354 
070356 
070360 
070364 
070370 


070372 
070376 
070400 


004537 
012700 
004537 
011200 
004537 
012604 
005722 
000743 
020004 
001755 
010003 
060203 
00&203 
005203 
020304 
001747 
042700 
110000 
000257 
006300 
005200 
005200 
060200 
020004 
000735 


105037 
006204 
103617 
006304 
010437 
112737 
004537 
105037 
042737 
017737 
013777 
012600 
012661 
012602 
012693 
012604 
012605 
012606 
013746 
013746 
000006 


105737 
001645 
105037 
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071024 
000057 
071166 


071024 


177400 


071307 


067260 
000340 
070756 
071306 
000020 
176742 
071350 


067262 
067260 


071307 
071307 


*e¢ 


177776 


067262 
067300 
176732 


MACY11 30(1046) 


TYPE ERROR ROUTINE 


0. WOS4: TST 
0. EFF1: CMP 
B 


0 GO: 


0. TBIT: 


0.602: MOV 


MoV 
O.RTIT: RTT 


5,0. CADY 


RC, RO 


0.P 

RY 

0. ERR2 

RY 

R4,0. UPC 

#0 STM, ST 
5,0. RSTT 

0. 


T 
#0. TBT. 9. UST 
a0. ADR1,0. UIN 
0. TRTC, a0. ADR1 
(SP)+,RO 
(SP)+,R1 
(SP )+,R82 
(SP)+,R3 
(SP)+,R4 
(SP)+,R5 
(SP )+, SP 
0. UPC, -(SP) 


; PROCESS P - PROCEED 
; ONLY ALLOWED AFTER A BREAKPOINT 


0. PROC: TSTB 
BEQ 
CLRB 


0.P 
0. ERR1 
0.P 


g 
29-SEP-77 
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+; TYPE ADORESS 
+ SLASH TO RO 


; TYPE 


;GET 


IT 
CONTENTS 


; TYPE CONTENTS 
+ RESTORE RY 


’ 


i 


; INCREMENT TO NEXT CELL AND 
RETURN 


(X)=K? 


+ TYPE IF Pa 


+ (X) 


TO R 


+ (X) 4% 


+ (X) 4X42 


zs tS 


(X)4X+2=K? 


;>BRANCH IF EQUAL 


;WIPE OUT EXTRANEOUS BITS 


EXTEND SIGN 


+ MUL 
D 


, 


;ADD PC 
> 1S THE RESULT A PROPER REL. BRANCH? 


DIS 


CHECK LOW ORDER BIT 
ERROR IF OOD NUMBER 


;RES 
i SET 
> SET 
;RES 


TIPLY BY TWO 
TWO 


ALLOW PROCEED 


TORE WORD 

UP NEW PC 
HIGH PRIORITY 
TORE TELETYPE 


CLEAR BOTH 


: Fa 


; SAV 
+ REP 


BIT FLAGS 
E INSTRUCTION 
LACE WITH TRAP 


RS 


>; RAND SP 


; CHANGED TO RTI FOP 11/26 AND 


,NOT 


AND STATUS 
AND PC 


po PS gk OF PROCEED 
GAL 
-CLEAR PROCEED FLAG 


/05 





SEQ 0221 


UN | BUS 
DZROGA 


11665 
11666 
11667 
11668 
11669 
11670 
11671 
11672 
11673 
11674 
11675 
11676 
11677 
11678 
11679 
11680 
11681 
11682 
11683 
11684 
11685 
11686 
11687 
11688 
11689 
11690 
11691 
11692 
11693 
11694 
11695 
11696 
11697 
11698 
11699 
11700 
11701 
11702 
11703 
11704 
11705 
11706 
11707 
11708 
11709 
11710 
11711 
11712 
11713 
11714 
11715 
11716 
11717 
11718 
11719 
11720 
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PU 


070404 
070406 
070410 
076414 
070422 
070426 
070434 
070440 
070446 


070450 
070454 
070460 
070464 
070470 
070472 
070500 
070504 
070506 
070512 
070514 
070520 
070522 
070524 
070526 
070530 
070532 
070536 
070542 
070544 
070550 
070554 
070556 
070562 
070566 
070572 
070576 
070602 
070604 
070612 
070614 
070620 
070622 
070630 
070634 
070640 
070644 
070650 
070654 
070660 
070662 


005702 


060735 


012637 
012637 
004037 
105737 
001311 
013777 
105737 
100003 
113705 
000407 
113705 
000257 
106005 
106005 
106005 
106005 
110537 
013705 
005745 
010537 
020537 
001417 
004537 
004537 
012704 
012703 
004537 
010590 
042737 
000420 
005337 
003302 
012737 
105237 
004537 
012700 
004537 
013700 
004537 
005005 
000137 


067276 
000340 
070756 
000340 
071306 
000020 


067260 
067262 
070666 
071306 


067300 
067264 


067262 
067264 


177776 
067260 


067260 
067274 


070724 
071260 
071312 
071313 
071152 


000020 
067276 


000001 
071307 
070724 
000102 
071166 
067274 
071024 


067572 


177776 
177776 
067262 


176574 


067262 


067276 


MACY11 30(1046) 


TYPE ERROR ROUTINE 


0. PR1: 


0. C1: 


oO Ore de Se he SM 


0. B2: 


VARIOUS ODDS AND ENDS. 
AND GIVES CONTROL TO THE COMMAND DECODER 


BRK: 
BK1: 


MOV 


5.0. RSTT 

#0. STM, ST 
0.T 

#0. TBT. 0. UST 
0. GOZ2 


BREAKPOINT HANDLER 
A TRT BREAKPOINT CAUSES 0. BRK TO BE ENTERED, WHICH SAVES 
FINDS OUT IF THE BREAKPOINT WAS LEGAL. 


(SP)+,0. UPC 
(SP)+,0. UST 
2 pases 


BK2 

JST,.RS 
K3 

PRI,RS 


-2 2099990 
ao 


#0. BD. R4 

#0. BD+1,R3 
5,0. TYPE 
R5,RO 

#0. TBT, 0. UST 
0.B3 


0. CT 


a 


Dp oODOWON 


C 2 
29-SEP-77 


TBIT 
UIN, 20. ADR1 
PRI 
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;WAS COUNT SPECIFIED? 


NO 

; YES, PUT AWAY COUNT 
> FORCE HIGH PRIORITY 
;RESTORE TTY 

;SET HIGH PRIORITY 
;SET T-BIT FLAG 

;SET T-BIT 


;PRIORITY 1S 7 UPON ENTRY 

;SAVE STATUS AND PC 

; SAVE VARIOUS REGISTERS’ 

; CHECK FOR T-BIT SET 

; JUMP IF SET 

;REMOVE BREAKPOINTS 

;CHECK IF PRIORITY 

>; 1S AS SAME AS USER PGM 

;PICK UP USER UST IF SO 

;AND DON'T COMPUTE THE PRIORITY 
; OTHERWISE PICK UP ACTUAL PRIORITY 
; CLEAR CARRY 

; SHIFT LOW ORDER BITS 

; INTO 

; HIGH ORDER 

i POSITION 

;PUT THE STATUS AWAY WHERE IT BELONGS 
;GET PC. IT POINTS TO THE TRT 

; SUBTRACT TWO 

;FROM THE USER'S PC 

; COMPARE WITH LIST 

; JUMP IF FOUND 

; SAVE TELETYPE STATUS 


7ERROP, NOTHING FOUND 
OUTPUT "BE" FOR BAD ENTRY 


CLEAR OUT ANY POSSIBLE FAKE T-BIT 
> AND CONTINUE 


; JUMP IF REPEAT 
RESET COUNT TO 1 
ALLOW PROCEED 

+ SAVE TELETYPE STATUS, 


; TYPE "B" 
;GET ADDRESS OF BREAK 
; TYPE ADDRESS 

;CLEAR CAD 

:GO TO DECODER 


R4Y IS SAFE 


SEQ 0222 


UN i BUS 
DZROGA. P11 


11721 
11722 
11723 
11724 
11725 
11726 
11727 
11728 
11729 
11730 
11731 
11732 
11733 
11734 
11735 
11736 
11737 
11738 
11739 
11749 
11741 
11742 
11743 
11744 
11745 
11746 
11747 
11748 
11749 
11750 
11751 
11752 
11753 
11754 
11755 
11756 
11757 
11758 
11759 
11760 
11761 
11762 
11763 
11764 
11765 
11766 
11767 
11768 
11769 
11770 
11771 
11772 
11773 
11774 
11775 
11776 


070666 
070672 
070676 
070702 
070704 
070706 
070710 
070712 
070714 
070720 
070722 


070724 
070732 
070740 
070744 
070750 
070754 


070756 
070762 
070766 
070770 
070776 
071000 
071004 
071006 
071014 
071022 


071024 
071026 
071032 
071036 
071040 
071044 
071046 
071050 
071052 
071054 
071056 
071062 
071064 
071070 
071072 
071074 


012637 
010637 


113737 
113737 
105037 
105037 
004537 
000205 


004537 
105737 
100375 
032737 
001403 
105737 
100375 
113737 
113737 
000205 


010246 
012704 
012746 
010002 
042702 
061602 
110244 
006200 
006200 
006200 
020427 
101365 
042700 
062600 
110044 
012703 


071304 
067256 
067256 


071304 


177560 
177564 
177560 
177564 
071260 


071260 
177564 


004000 
177560 


071310 
071311 


071347 
000060 


177770 


071342 
177776 


071347 


071310 
O71311 


177560 
177564 


RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


MACY11 30(1046) 


TYPE ERROR ROUTINE 


oO.» 


as 


, 

. 
, 
, 


> i 


D 2 
29-SEP-77 
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PICK REGISTER FROM STACK AND SAVE 
SAVE USER STACK ADDRESS 
+SET TO INTERNAL STACK 


: SAVE 

; REGISTERS 

; THRU, 

[PUT SAVED REGISTER ON STACK 


SAVE R C/SR 

+ SAVE T C/SR 

+CLEAR ENABLE AND MAINTENANCE 
+ - BITS IN BOTH C/SR 

+ TYPE <CR,LF> 


SAVE REGISTERS RO-R6 IN INTERNAL STACK 
SVR: MOV (SP )+,0. XXX 
MOV SP, 0. USP 
MOV #0. USP, SP 
MoV R5.-(SP) 
MOV R4, -(SP) 
MoV R3,-(SP) 
MOV 0. XXX, - (SP) 
TST - (SP) 
RTS RO 
SAVE TELETYPE STATUS 
SVTf: MOVB 0. RCSR,.O CSR1 
MOVB 0. TCSR, 0. CSR2 
CLRB 0. RCSR 
CLRB 0. TCSR 
JSR 5,0. CRLF 
RTS R5 


RESTORE TELETYPE STATUS 


RSTT: JSR 
TSTB 


RSE1: 


CADV: 


SPC: 


5,0. CRLF 
0. TCSR 


=" 
#4000, 0. RCSR 
0. RSE1 

0. RCSR 

=" 

0. CSR1,0. RCSR 
0. CSR2,0. TCSR 
RS 


R2,-(SP) 
#0. BUF +6,R4 
#'O0,-(SP) 
RO. RZ 
#177770,R2 
asP, 
R2,-(R4) 

RO 

RO 

RO 

R4, #0. BUF +1 
0. SPC 
#177776,R0 
(SP)+,R0 


RO. -(R4) 
#0. BUF +6,R3 


;<(CR-LF> BEFORE RESTOR ING 
;WAIT READY ON PRINTER 


>CHECK BUSY FLAG ON READER 
>SKIP READY LOOP IF NOT BUSY 
;WAIT READY 

; ON READER 

;RESTORE 

> THE STATUS REGISTERS 


TYPE OUT CONTENTS OF WORD OR BYTE WiTH ONE TRAILING SPACE 
WORD IS IN RO 


SAVE R2 
>BUFFER START ADDRESS 
CONSTANT ASCII 0 


ET 
; OCTAL CHARACTER 
CONVERT TO ASCII 
>STORE IN BUFFER 
+ SHIFT THIS MESS 


, 


1GHT 
; THREE WHOLE PLACES 
; DONE? 


; NO 
>GET LAST BIT 
; CONVERT TO ASCII 
7AND PUT IT AWAY 
> LWA 


UN|IBUS 
DZR6GA. 


11777 
11778 
11779 
11780 
11781 
11782 
11783 
11784 
11785 
11786 
11787 
11788 
11789 
11790 
11791 
11792 
11793 
11794 
11795 
11796 
11797 
11798 
11799 
11800 
11801 
11802 
11803 
11804 
11805 
11806 
11807 
11808 
11809 
11810 
11811 
11812 
11813 
11814 
11815 
11816 
11817 
11818 
11819 
11820 
11821 
11822 
11823 
11824 
11825 
11826 
11827 
11828 
11829 
11830 
11831 
11832 


Pil 


071100 
071104 
071106 


071110 
071114 
071116 
071122 
071126 
071132 
071134 
071140 
071142 
071146 
071150 


071152 
071154 
071156 
071160 
071164 


071166 
071172 
071174 
071200 
071204 
071206 
071212 
071216 
071220 
071224 
071226 
071230 
071232 


071234 
071236 
071240 
071242 
071244 
071246 
071250 
071252 


29-SEP-77 09: 


004537 
012602 
000205 


105737 
100375 
113700 
004537 
042700 
001766 


122700 ' 


001763 
122700 
001760 
000205 


020304 
103426 
112400 
004537 
000772 


105737 
100375 
110037 
120037 
001012 
113746 
105737 
100375 
105037 
105316 
003371 
005726 
000205 


006205 
103405 
006305 
005702 
001401 
016415 
000207 
005746 


071152 


177560 
177562 
071166 
177600 
000040 


000073 


071166 


177564 


177566 
000045 


000044 
177564 


177566 


RKO6G-RKO7? DUAL PORT Ebi DIAGNOSTIC 


€ 2 
MACY11 30(104%6) 29-SEP- 


TYPE ERROR ROUTINE 


> ed 


oO... 


Be Be 


Ss Be 


M 
. TYP2: TSTB 


T 
_ TYP1: RTS 
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i; TYPE WHOLE STRING OF CHARACTERS 
;RESTORE R2 


;WRIT FOR 

; INPUT FROM KEYBOARD 

+GET A CHARACTER 

ECHO CHARACTER 

STRIP OFF PARITY FROM CHARACTER 
+ IGNORE NULLS 

+ CHECK FOR SPACES 

+ IGNORE NULLS 

CHECK FOR SEMI-COLON 

> IGNORE THEM IF FOUND 


JSR 5,0. TYPE 

MOV (SP)+,R2 

RTS RS 
GENERAL CHARACTER INPUT ROUTINE 
CHARACTER INPUT GOES TO RO 
.GET: TSTB 0. RCSR 

BPL 8 

MOVB 0. RDB. RO 

JSR 5,0. FTYP 

BIC #177600, RO 

BEQ 0. GET 

CMPB #40, R0 

BEQ 0. GET 

CMPB #';,R0 

BEQ 0. GET 

RTS RS 


GENERAL CHARACTER OUTPUT a 
ADDRESS OF FIRST BYTE IN R4 
ADDRESS OF LAST BYTE IN R3, 


_ TYPE: CMP 


BLO 
MOVB 
JSR 
BR 


TYPE ONLY ONE 


.FTYP: TSTB 


CLOSE WORD OR 
UPON ENTERING, 


TCLS: ASR 
8 


.CLS1: RTS 
; We: TST 


R3.R4 
0. TYP1 
(R4)+,R0 
5,0. F TYP 
0. TYPE 


(R3)>(R4) 


CHECK FOR COMPLETION 
>; EXIT WHEN DONE 

+GET A CHARACTER 

; TYPE ONE CHARACTER 
LOOP UNTIL DONE 


CHARACTER (CONTAINED IN RO) 


BYTE AND EXIT, 
RZ HAS NUMERIC 


CHECK STATUS 

;WAIT UNTIL READY 
TYPE ONE CHARACTER 
1S CHAR TO BE FILLED? 


NO 
“YES, INIT THE COUNT 
>GENEPATE NULL FILLER 
;POP STACK 


FLAG. RY HAS CONTENTS 


GET LOW ORDER BIT 
; JUMP !F ALREADY CLOSED 


> 1F NO NUMBER WAS TYPED THERE IS 


;NO CHANGE TO THE OPEN CELL 
STORE WORD 


>POP EXTRA CELL FROM STACK 


SEQ 0224 
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DZR6GA. P11 29-SEP-77 09: 55 TYPE ERROR ROUTINE 


11833 071254 000137 067556 JMP 0. ERR ;AND SCREAM BLOODY MURDER 
11835 ; 0. CRLF - TYPE <CRLLF> 

11836 ; O.CRLS - TYPE <CRLLF>* 

11838 071260 012703 071315 0. CRLF: MOV #0. CR+1,R3 ;LWA <CRLF> 

11839 071264 000402 BR 0. CRS 

11840 071266 012703 071316 0. CRLS: MOV #0. CR+2,R3 ;LWA <CR-LFD* 

11841 071272 012704 071314 0.CRS: MOV #0. CR, RY ;FWA 

11842 071276 004537 071152 JSR 5,0. TYPE > TYPE SOMETHING 
11843 071302 000205 RTS RS 

11844 ; 

11845 071304 ooco000 0. XXX: .WORD 0 ; TEMPORARY STORAGE 
11846 071306 000 0. T: BYTE 0 ; T-BIT FLAG 

11847 071307 000 0. P: BYTE 0 i PROCEED FLAG = 0 IF PROCEED NOT ALLOWED 
11848 = 1 IF PROCEED ALLOWED 
11849 071310 000 0.CSR1: .BYTE 0 “SAVE CELL - R C/SR 
11850 071311 000 0.CSR2: .BYTE 0 ;SAVE CELL - T C/SR 
11851 ; 

11852 EVEN 

11853 071312 ©c42502 0. BD WORD "BE 

11854 ; 

11855 071314 015 0.CR: .BYTE O15 3 «CRD 

11856 071315 012 BYTE 012 > <LF> 

11857 071316 052 :. oo ; 8 

11858 

11859 071317 057 0.LGCH: .8YTE ‘/ ys 

11860 071320 015 BYTE 015 ; CARRIAGE RETURN 

11861 071321 O44 weve 4 » 4 

11862 071322 107 vt. *4 ; G6 

11863 071323 012 BYTE 012 >; CLR 

11864 071324 137 se eae 

11865 071325 136 arm ° ; 

11866 071326 117 BYTE ‘O : 0 

11867 071327 127 BYTE ‘W W 

11868 071330 105 BYTE "¢ E 

11869 071331 102 “BYTE '‘B B 

11870 071332 120 BYTE 'P : oP 

11871 000014 0.CLGT = _-0. LGCH . TABLE LENGTH 
11872 ; 

11873 071333 123 nh: .eyvte “Ss D0 1 

11874 071334 120 BYTE 'P ;NOT 2 

11875 071335 115 BYTE 'M ;CHANGE 3 

11876 071336 000 BYTE O ; THE y 

11877 071337 000 BYTE O ; ORDER 5 

11878 071340 102 BYTE '‘B ; HERE 6 

11879 000006 0. LG : 0. TL 

11880 ; 

11881 071341 0. BUF: >6 CHAR. BUFFER WITH 
11882 071347 : +6 

11283 071347 040 ore °° ; TRAILING BLANK 
11884 EVEN 

11885 

11886 071350 906003 0. TRTC. TRT ; TRACE TRAP PROTOTYPE 
11887 


11888 >THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
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11889 
11890 
11891 
11892 
11893 
11894 
11895 
11896 
11897 
11898 
11899 
11900 
11901 
11902 
11903 
11904 
11905 
11906 
11907 
11908 
11909 
11910 
11911 


067242 
067244 
067246 
067250 
067252 
067254 
067256 
067260 
067262 
067264 
067266 
067270 
067272 


067274 
067276 
067300 


29-SEP-77 09: 55 


067242 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000007 
00c000 
000000 
000000 


000000 
cooo00 
000900 
000001 


’ 


0. 


eoooo 


200°: 


TYPE ERROR ROUTINE 


= 0. ODT-40 
URO: O > USER RO 
0 ; R1 
0 ; R2 
0 ’ RZ 
0 ; RY 
0 ; RS 
USP: 0 ;USER SP 
uwrc: + USER PC 
UST: QO ;USER ST 
PRI: 7 7 ODT PRIORITY 
MmSK: Q ; MASK 
0 >LOW LIMIT 
0 > HIGH LIMIT 
BREAK POINT LISTS. ADR1 = ADDRESS OF BREAKPOINT, CT = 
UIN = CONTENTS 
ADR1: 0 
CT: 0 
UIN: Q 
END 


COUNT, 


SEQ 0226 
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DZROGA. P11 29-SEP-77 09: 55 CROSS REFERENCE TABLE -- USER SYMBOLS 
ABASE = 177440 2553 2594 26088 
ACDW1 = 000000 2553 2596 

ACOW2 = 000000 2553 2597 

ACLO = 000010 14348 

ACPUOP= 000000 2553 2568 

ACT11 005430 27638  3734% 

ADDWO = 000000 2553 2598 

ADDW1 = 000000 2553 2599 

ADDW10= 000000 2553 

ADOW11= O00000 2553 

ADDW12= 000000 2553 

ADDW13= 000000 2553 

ADOW14= OO0000 2553 

ADOW15= OOOO 2553 

ADOW2 = 000000 2553 2600 

ADDW3 = 000000 2553 2601 

ADOWY = 000000 2553. 2602 

ADDWS = 000000 2553 2603 

ADDWe = 000000 2553 2604 

ADOW? = 000000 2553 2605 

ADDWS = 000000 2553 

ADDN = 000000 2553 

ADEVCT= 000000 2553 2559 

ADEVM = 000000 2553 2595 

AENVY = 000000 2553 2564 

AENVM = 000000 2553 2565 

AFATAL= 000000 2553 2556 

AMADR1i= OOO00O 2553 2581 

AMADRZ= GOO000 2553 2585 

AMADR3= OO0000 2553 2588 

AMADR4Y= OOO000 2553 2591 

AMANS1= OO0000 2553 2575 

AMAMSZ= 000000 2553 2583 

AMANS3= OOCO00 2553 2586 

AMAMS4= OO0000 2553 2589 

AMSGAD= 000000 2553 2561 

AMSGLG= 000000 2553 2562 

AMSGTY= 000000 2553 2555 

ANTYP1= OO0O0000 2553 2576 7 
AMTYP2= OO0000 2553 2584 

AMTYP3= 000000 2553 2587 

AMTYP4= 000000 2553 2590 

APASS = 000000 2553 2558 

APRIOR= 000000 2553 

APTCSU= 000040 9362 95348 

APTENV= 000001 9309 9355 9490 95328 
APTSIZ= 000200 3663 95318 

APTSPO= 000100 9357 9492 95338 
ASWREG= 000000 2553 2566 

ATESTN= 000000 2553 2557 

ATTN 005304 26988 7141 7269 7732 7854 8261 8281 8208 8337 
AUNIT = 000000 2553 2560 

AUSWR = 000000 2553 2507 

AVECTi= 000000 2553 2592 

AVECT2= 000000 2553 2593 


BADHDR 005300 2688# 3742k 9002 


a te 


UNIBUS RKO6-RKO7 DUAL PORT hee DIAGNOSTIC 


DZROGA. P11 

BADTMO 047736 
BAI = 000020 
BAI6 = 000400 
BAI? = 001000 
BiTO = 000001 
BiTOO = 000001 
BiTO1 = 000002 
BiTOZ2 = 000004 
BiTO3 = 000010 
BITOY = 000020 
BITOS = O00040 
BiTO06 = 000100 
BiTO07 = 000200 
BiTO8 = 000400 
BiTO9 = 001000 
BiT1 = 000002 
BiT10 = 002000 
BiT1i = 004000 
BiTiZ = 010000 
BIT13 = 020000 
BiT14 = 040000 
BIT1iS = 100000 
BiTZ2 = 000004 
BIT3 = 000010 
BiITY = 000020 
BITS = 000040 
BiTé = 000100 
BIT? = 000200 
BIT8 = 000400 
BiIT9 = 001000 
BPTVEC= 000014 
BSE = 000200 
BSERR 001452 
BSE22H 002276 
BSE22S 003276 
BYP 044260 
BYPCER 001456 
CALADD 001362 
CALDIF 001354 
cCLR = 100000 
CCYL 001350 
cOT = 002000 
CERR = 100000 
CFMT = 010000 
CHKFLG 001460 
CHKMSG 044274 


29-SEP-77 09:5 


3817 

1397% 
13838 
13848 
13268 
13168 
13158 
13148 
13134 
13128 
13118 
13108 
13098 
13088 
1307% 
13258 
1306% 
13058 
1304% 
13038 
13028 
13018 
1324% 
13238 
13228 
13218 


90728 
7483 


1412 


8 
4840x 


1431 


1421 


7426 
8851 
3987 
8478 
8729 


11063 


4299 
5741 
7278 


4142 
4360 
6066 


8459 


4370: 


4982 
5399 
6051 
7257 


MACY11 30(1046) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2755 


| 2 
29-SEP-77 


3858 


1468 
1455 
1470 
1457 
1458 
1443 


1476 
1463 
1450 
1451 
1452 
1467 


8847 
4075 


4396 
5941 
7722 


4719 
7216 


4452 
5031 
5494 
6201 
7515 


3860 


8117 


1495 
1483 
1497 
1485 
1486 
1526 


1490 
1478 
1479 
1480 
1494 


4083 


4540 
6710 
7843 


4916 
7490 


4529 
5105 
5589 
6342 
7635 
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8944 


4087 


4555 
6738 
7863 


4968 
7616 


4575 
5128 
5636 
6383 
7054 


9297 
1510 


1512 
1513 


1505 
1506 
1507 


83598 


4592 
6793 
8519 


5091 
7754 


4611 
5157 
5688 
6462 
7768 


9259 


9304 
1523 


3848 


8755 





SEQ 0228 


9230 
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DZR6GA. P11 29-SEP-77 09: 55 CROSS REFERENCE TABLE -- USER SYMBOLS 

CKCERR 045064 8210 8214 8225 8230 84788 

CKSWR = 104407 9229 9293 9319 101948 

CLEAR = 000005 1368% 4302 4436 4595 4757 452 5015 5190 5620 5845. 7113 7241 9026 
CLKOF 047162 4402 4474 4561 4633 6584 6656 6746 6829 B9C4R 8919 

CLKON 047114 4385 4S44 6573 6645 6740 6823 8888R 8915 

CLOCK 047154 3766 88998 ) 

CLRFLG 043026 3684 80628 

COE = 001000 14218 

COUNT 001366 2640 4222k 4248k 4Y328K 4I84k 4461 4487% 4S543k 4620 4700 4749k% 4795k 4844s 


4898k 4937k 4989x 5038k 5073xk 5112k 5164% 5213% 5253*% 5335% S643x 5868%  5984% 
€117k 6162% 6219X% 6553% 6572% 6585% 6586 6625% 6644x% 6657% 6658 6739% 6747% 
6748 6822% 6830k 6831 6894% 6986% 7161% 7289% 8339 8899% 8916 

000015 12418 9401 9411 10205 10213 10218 10222 10232 10241 10248 10256 10263 10268 
10272 10278 10282 10288 10294 10299 10308 10316 10323 10331 10336 10343 10348 
10353 10358 10362 10368 10373 10377 10381 10383 10387 19392 10394 10395 10399 
10406 10410 10417 10422 10426 10432 10450 10458 10478 10486 10549 10576 10583 
10588 10593 10605 10626 10642 10810 10818 10847 10880 10998 


~™ 
“a 


CRLF = 000200 12428 9372 99411 

CTO = oo4ooe 1386% 8484 

CYLADD 001360 2635 4294 4741 4836 7478k 7482 7598k 7602k 7607 8620k 8621% 8622% 86234 
8624% 8625% B643k SO44K SO45k Bo4Ok BO47k 848k 

CYLDIF 001356 2634% 4291 8604% 8605x 860k 8607k 8608% 8609% 8610 8612% 8630% 8631% 8632 
8633k 8634% 8635% 8636 8638% 

DATAO 001434 26048 7479 7596 7603 7621 

DATAO1 001436 26658 7479k 7481 7596 7599k 76034 7606 

DATA1 001440 2666% 7599 

DATCMD 043430 7365 7487 7613 7782 7903 81908 

DOCK = 100000 14278 

DCLO = 000020 14358 

DCPAR = 020000 13888 

DDISP = 177570 1248% 2528 3651 

DOPCH 005426 27628  3730%. 3927 4135 

DDT = 000400 14398 

DDUMP 005424 27618  3697% ' 8062 

OF 1 066332 2806 2812 2818 2824 2835 2841 2846 3074 3114 3119 111398 

DF10 © 066462 2851 2856 2861 2866 72871 £2893 2898 #2908 #2924 2984 2994 2999 3034 


3089 3094 3099 3104 3109 3144 3169 3174 3179 3184 3189 3194 3199 
3204 3209 3214 3219 3224 3229 3249 325% 3259 3284 3309 3334 3339 
3344 3349 3354 3359 3364 3369 3414 3419 3434 3439 3444 3464 3489 
3544 3559 3594 11190% 


DF 14 066502 3459 =: 1111998 

DF 15 066522 3424 3429 3449 3454 3564 112098 

DF 17 066542 3569 3584 112188 

DF 2 066346 2881 11146% 

DF 20 066566 3014 112288 ; 

OF 21 066612 2903 2913 2918 2929 2934 2939 2944 2949 2954 2959 2964 2969 2974 


2979 = 3019 3024 3029 3039 3044 3049 3054 3059 3064 3069 3079 3084 
3124 3129 3134 3139 3149 3154 3159 3164 3264 3269 3274 3279 3289 
3294 3299 3304 3314 3319 3324 3329 3374 3379 3384 3389 3394 3399 
3404 3409 3494 3499 3504 3509 3534 3539 §=—- 112398 


DF 22 066646 3004 3009 §=611254% 
DF 23 066702 11269% 

DF 3 066352 2876 2887 86111498 
DOF4 066376 2989 111608 

DFS 066412 3234 3239 3244 


11 
DF 6 0664 36 3479 3484 3549 = 11 


UNIBUS RKOG-RKO? DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 

DH1 062556 
DH10 063310 
DH1i1 063337 
DH12 063354 
DH13 063445 
DH14 063531 
DH15 063563 
DH16 063612 
DH17 063741 
DH18 063765 
DH19 064012 
DH2 062573 
DH20 064035 
DH21 064070 
DH22 064116 
DH23 064150 
DH24 064200 
DH25 064245 
DH26 064270 
DH27 064320 
DH28 064351 
DH29 064 361 
DH3 062643 
DH30 064371 
DH31 064423 
DH32 064450 
DH35 064502 
DH36 064527 
DH37 064610 
DH38 064664 
DH39 064736 
DH4 062714 
DH4O 064771 
DH41 065025 
DH4 2 065121 
DH4 3 065172 
DH44 065251 
DH4S 065330 
DH49 065374 
DHS 062760 
DH51 065451 
DHS6 065504 
DHé Oe 3007 
DH? 063042 
DH8 063214 
DH9 063235 
DI = 040000 
DISPLA 001142 
DISPRE 000174 
OLT = 100000 
OLY 044242 


000040 


29-SEP-77 09: 55 


2804 


2810 


108268 


2816 
11180 
3437 


3157 
3032 
108968 

11155 


109058 
2952 


3257 


2884 
2901 
11258 
11262 
11157 


3062 
11260 


2896 
3222 


3322 
2972 


3462 


11220 


3127 
3297 


3659% 


7914 
83508 


2822 2833 2839 
11192 11211 11222 
10837% 


3162 10869% 
3077 3082 3227 


11162 11173 #811184 


2957 3182 3332 


3282 3357 «3362 
2890 2916 2927 
2911 2982 2997 
11273 

11277 

11164 11175-11186 
30673412322 
2932 2937—=S (302 
3262 3267 «©3272 


3327 3337 3367 
2977 3447 3452 


109948 


3132 3137 3177 
3302 11042% 


9274% 9296% 


8353 


2844 
11230 


3532 


11194 


3347 


3372 
3027 
3017 
11196 
3427 
3047 
3277 


109778 
109848 


2987 
11241 


3537 


11203 


109098 


3377 

3037 

3022 
11205 
109428 


10951% 
3417 


79707 
3392 


K 2 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 231 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3072 
11256 


108888 


11213 


3382 


3557 
109338 


11215 


3492 


3397 


3112 
11271 


11224 


3387 
3562 


11226 


3497 


3402 


3117 3457 


11234 11249 


3477 3482 
109298 


11236 §=11251 


3502 3507 


3407 =610798% 


SEQ 0230 


107758 


11264 


3487 


11266 


109568 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 
DOCMD 43372 
DPAT1 001442 
DPATZ2 O01444 
prPA = 00C001 
DRAY 044172 
DRDY = 000200 
DRIVS 005434 
DRIVO 005436 
DRivi o05440 
DRIV2 005442 
DRiIV3 O05444 
DRiVY O05446 
DRIVS 005450 
DRIV6 005452 
DRIV7 O05454 
DROT = OO00040 
DRPAR = 000010 
DRVMSK= 000007 
DRVPTR 001342 
psc 6. =-:«cO40000 
DSWR = 177570 
DTE = 010000 
DTYE = 000040 
pT1 065530 ° 
OT13 066066 
pT14 066146 
pT15 066236 
pT3 065570 
DT4 065574 
DTe 065642 
DT7 065706 
pts 065754 
pT9 066022 
D. ACLO= 000100 


000100 


29-SEP-77 09: 55 


14918 
14788 


4277 


3866% 
3855 


111138 


110638 
110718 


4312 


41464 


4344 


MACY11 30(1046) 
CROSS REFERENCE TABLE -- 


4410 


L 2 
29-SEP-77 


USER SYMBOLS 


3929% 
8101 


Whew... 


- oF 


Y44G 


4500 


3373 
3538 


4569 


10:08 PAGE 232 


111038 


46e0S . 


472? 


4767 





4822 


SEQ 0231 


4862 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
DZR6GA. P11 


92 


99 


peevvevv99s9r9r909090900"00090 


CART= 


DRA = 


DRDY= 


SECT 


000400 


000400 
000200 


OLoose 


000200 


02c000 
040000 


000200 
001000 
002000 
000200 
000040 


= 000040 


000400 
020000 
010000 
000400 
010000 
002000 
001000 
020000 
004000 
004000 
020000 
000020 
002000 


29-SEP-77 09: 55 


8677 


8694 


7158 


4268 


CROSS REFERENCE TABLE -- 


7286 


9016 


mM 2 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 233 


USER SYMBOLS 


5049 5099 
5544 5583 
6252 6336 
7528 7629 
4Y44G 4500 
5049 5099 
5544 5583 
6252 6336 
7528 7629 
u446 4500 
5049 5099 
5544 5583 
6252 6336 
7528 7629 
W444 =—s- YB 
5047 5097 
5450 5455 
5767 5798 
6113 6125 
6454 6485 
6970 7013 
7561 7586 
9034 

Y44y 449g 
5047 5097 
5542 5581 
6250 6334 
7526 7627 
4820 4922 
5767 5806 


5200 5224 
5769 5808 
6560 6632 
7883 7922 
4767 4822 
5200 5224 
5769 5808 
6560 6632 
7883 7922 
4767 4822 
5200 5224 
5769 5808 
6560 6632 
7883 7922 
4765 4820 
5198 5222 
5573 5581 
5905 5910 
6250 6297 
6618 6630 
7198 7222 
7760 7799 
4765 4820 
5198 5222 
5767 5306 
6558 6630 
7881 7920 
5097 5149 
7222 7760 


SEQ 0232 








UNIBUS RKOG-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 
D. SPIN= 010000 
0. SPLS= 010000 
D. SPOK= 001000 
Oo. SSP = 000020 
D. SUNS= 040000 
D. TIB = 002000 
D. UNLD= 040000 
D. UNS = 040000 
D.vv = 000100 
D. WCUR= 000040 
D. WGAT= 000100 
D.WLE = 004000 
D.WRL = 004000 
D. XERR= 001000 
ECCW = 020000 
H = 000100 
EMNTVEC= 000030 
EM 057054 
Em10 057730 
EM11 060013 
EM12 060057 
Em13 060115 
Em14 060137 
EM15 060175 
EM16 060304 
EM17 060347 
Em18 060370 
EMi9 060411 
EN2 057127 
EN2 0604 32 
EM21 060453 


29-SEP-77 09: 55 


2863 


CROSS REFERENCE TABLE -- 


36354 


2868 


3106 


10554% 


2936 
105698 
2895 


N 2 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 234 
USER SYMBOLS 


3211 
256 


3121 
3076 
3131 


3081 
3486 


3331 
105328 


3286 
3266 


3411 


3446 


SEQ 0233 


3556 


3391 
3376 
3401 


3386 


UNIBUS RKO6-RKO7 DUAL Do DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 235 SEQ 0234 

DZR6GA. P11 29-SEP-77 09: 55 CROSS REFERENCE TABLE -- USER SYMBOLS 

EN22 060475 3111 105768 

EN23 060602 3116 105888 

EN24 060702 2921 106008 

—EN25 060735 2996 10605% 

EMN26 061007 2981 106138 

EN2? 061066 3071 106218 

EN28 061205 3863 106358 

EN29 061313 3351 3441 = 106488 

EM3 057217 9076 104508 

EN30 061361 3096 106558 

EN31 061402 2991 3091 3181 3361 3416 3461 106588 

EM32 061425 3141 106628 

EN33 061444 3171 3191 3366 10665% 

EN34 061467 3186 3221 10669% 

EN35 061516 3246 106738 

EN36 061544 3476 3481 3546 106778 

£N3? 061607 3306 106838 

EN38 061640 3341 «=10688% 

EN39 061712 3001 3281 3431 = 106968 

EM4 057272 104588 

EN4YO 061762 3006 3436 107038 

EMS 057346 2809 3241 104668 

EMSS 062020 3346 107088 

EM6 057367 2815 104698 

EN63 062053 3421 = 107138 

Em6éS 062074 3456 §«10716% 

EM69 062116 3591 107198 

EN? 057410 2821 104728 

EN73 062147 3231 107248 

EN74 062170 3086 107278 

EN79 062215 3236 8107318 

Ens 057600 104948 

EN80 062236 2873 =107348 

EM82 062275 2883 107408 

EN83 062347 2889 107488 

ENs4 062404 3232 3237 3242 396107538 

Ene 057654 2832 105028 

EM93 062475 3011 107638 

ERRVEC= 000004 13298 3648 3649% 3660% 3667k 3668% 3681k 3682% 37514 3755k 3762k 3799K 3817% 
3818k 9235 9236% 9238% 9241% 

— AO 005404 27448 8 804275e% 4310k 4339k 4363k 4364 4Y4UO8k 4Y444ek 4498k 4522k 4523 4567x 4603% 


4725x% 4765x 4820k 4860k 4922k %4YO45k 4974K 4997k 5023k SO47k 5097k 5120% 5149% 
5172k 5198k 5222k 5288*% 5309k 5370k 5391% 5455e 5486k 5542k 5581% 5628% 5680x 
5711% 5767x S3806k 5853k 5910k 5992k 6043k 6125% 6193x 6250% 6334% 6375% 6454% 
6495x 6558k 6630% 7094% 7121k% 7222k 7249K 7372% 7507k 7526k% 7627% 7646% 7760% 
7799% 7881k 7920k 7964% 8373% 8374k 8381k 8385 8387% 84i6 9034% 11103 11113 


E. Al 005410 27468 8 4277k (4312k 441k «(4364e | «64365K 644108 «=e «= 4S0OK =64523% 4 894524x 4569x% 4605% 
4727% 4767K %4822k %4Y862Kk 4924K 4947k 4976k 4999k% 5U25k S5O049k 5099% 5122% 5151% 
5174x §200k 5224x §290% 5311% 5372% 5393% 5457k Sussk S5544x 5583k 5630%  5682% 
5713% 5769% S5808x 5855x $912k 5994% 6045% 6127k 6195% 6252k 6336% 6377% 6456% 
6497x% 6560% 6632% 7096k 7123k 7224% 7251k% 7374% 7509% 7528% 7629% 7648% 7762% 
7801% 7883% 7922k 7966% 8375% 8376% 8389 8391* 8436 9036x 11103 11113 11124 

E. AZ 005414 27488 4279k 4Y314k 4343K 4412k = 4448k = =4502k 84571% 4607k 4729% 4769K 4B824e 4BG4E 
4926 4949k 4978" S001k 5027k 5051k 5101k 5124* 5153k 5176% 5202 5226% 5292% 
5313% S374% 5395e 5459k 5490k 5546k 5585% 5632k So84k 57154 5771% 5810% 5857% 





UNIBUS RKOG-RKO? DUAL PORT DRIVE DIAGNOSTIC 


DZROGA. P11 

E. AZ 005420 
E. BO 005406 
£. Bl 005412 
E. 82 O05416 
E.B3 005422 
E.DDT 012776 
FATT1 044006 
FATTZ2 044106 
FATTZ 044214 
FC 012000 
FCP1 013002 
FHOHM 046222 
FHOTAB 9 O46344 
FLGTST 046574 
FLOAD 046276 
FMTE = 000020 
FMT1 001430 
FORM 047736 
FORMAT 001426 
FRCYL 001344 
FRDY 04 3466 
FROY1 043534 
FTITLE 001340 
GBA 043274 
GORVS 043126 
GINT 043322 
GNS = K&KEKRE 
GO = 000001 
GSTAT 045146 


GSTATI 


045210 


29-SEP-77 09: 55 


8317 
8371 


4290 
8326 
85178 


MACY11 30(1046) 


Cc 63 
29-SEP-77 


CROSS REFERENCE TABLE -- USER SYMBOLS 


87698 


8718% 


8746 
4338% 
3917 
8561 
8075% 


10187 


4656 
85058 


6129% 
7376% 
8395% 


4 340% 
4946X 
5371x 
5993x 
7223% 
8399% 
4 342k 
4YO48X 
5373% 
5995% 


8719% 


11063 
4021 


10188 


7157 
8580 


6197% 
7511% 
9038% 


10189 


7285 
8591 


6254% 
7530% 
11113 


44Q9X 


8182 


10190 


7367 
8603 


6338% 
7631% 
11124 


10192 


7489 
8619 


6379% 
7650% 


4499K 
5048x 
554 3x 
6251% 


82058 


10194 


7615 
8676 


10:08 PAGE 236 


5477 


8208 


10195 


7795 
8693 





6499% 
7803% 


4568% 
5121% 
5629% 
6376% 
7647% 


4570% 
5123% 
5631x 
6378% 
7649% 


4730x 
5177% 
5716% 
6500x 
7804% 


4731x 
5178 
5717% 


6501* 
78054 


5702 


8575 


10196 


7916 
9015 


6330 


10197 


8288 


6634% 
7924% 


4726% 
5173% 
5712% 
6496x 
7800% 


4728% 
5175% 
5714% 
6498% 
7802% 


4825% 
5227% 
5811x 
6635% 
7925% 


4826x 
5228% 
5812% 


6636% 
7926% 


6450 


10198 


2292 


SEQ 0235 


6891 


10199 


8313 





‘ 


D 3 
UNIBUS RKO6-RKO7? DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 237 SEQ 0236 


DZR6GA. P11 29-SEP-77 09: 55 CROSS REFERENCE TABLE -- USER SYMBOLS 

GSTATZ 045470 8523 8532 8541 8549 85578 

GTSWR = 104406 8084 101928 

HASOF 005332 27158 8 8244e 8261 11059 11068 11076 11084 11092 11100 11110 11121 11133 

HBA 005322 27118 8240% 11059 11068 11076 11084 11092 11100 11110 11121 11133 

HCS1 005314 27088 3911% 3912% 3913 3919 4O24x 4O25k 4026 4032 4235% 4262% 4302% 4360 


4436xX 4519 4595e 47118 4719 4757% 4806x 4814 4852k 4908% 4916 4960% 4968 
5015x 5083" 5091 5135% 5143 5190% 5267% 5275% 5349% 5357k 5438k S5446xk 54728 
5480 5508 5522 5530% 5561% 5569% 5600k 5608% 5620% 5663% 5671% 5697% 5705 
5733 5747% 5755% 5786k 5794% 5825x 5833x S845x 5893x% 5901% 5933 5947% 5955% 
5968k 5976% 6026% 6034% 6066 6080x 6088% 6101% 6109% 6176% 6184% 6233% 6241% 


HCS2 005316 2709% 3958 3960 3964 3976 4061 4063 4067 4070 7618 8238k 8489 8493 
11056 §=11065 11073 11081 11089 11097 11107 11118 11130 

HDA 025324 27128 8241% 8878 11059 11068 11076 11084 11092 11100 11110 11121 11133 

HDB 005336 27178 

HOC 005334 2716# 8245% 8870 11059 11968 11076 11084 11092 11100 11110 11121 11133 

HOS 005326 27138 3962 4065 8242* 11056 11065 11073 11081 11089 11097 11107 11118 11130 

HDOTAB 001462 26788 8709 

HDWO 001450 26718 1107 

HD1 001424 26598 87118 8712% 8713% 8714*% 8715k 8716k 8723 

HEAD 001420 26578 8711 8781 

HEADA 001422 26588  8663% 8664%  8665% 86664 

HER 005330 hy 3954 4056 7493 8243* 11056 11065 11073 11081 11089 11097 11107 11118 
111 

HMR 1 005340 27188 8246*% 11056 11065 11073 11081 11089 11097 11107 11118 11130 

HMR Z 005342 27198 3921 4034 4239 4268 4657 5279 5361 5450 5534 5573 5612 5675 


5759 5798 5837 5905 5959 5980 6038 6092 6113 6188 6245 6297 6325 
6365 6417 6445 6485 6546 6618 6697 6728 6780 6811 6878 6921 6970 
7013 7670 7158 7198 7286 7343 7470 7561 7586 7714 7839 7998 8223% 
8228% 8247% 8327 8525 8534 8543 8551 8604 8677 8694 9016 11056 11065 


AMPS 00S 744 27208 8224% 8229% 8248k 8526 8535 8544 8552 8592 $620 11056 11065 11073 
11081 11089 11097 11107 11118 11130 

HOLD 04 3622 8209 8213 82378 8518 

HPAT 005350 27228 «88250% 11059 11068 11076 11084 11092 11100 11110 11121 11133 

HPEND 005302 26908 3743% 9005% 

HPOS 005346 27218 8249% 11059 11068 11076 11084 11092 11100 11110 11121 8 11133 

HT = 000011 12398 9370 9411 

H¥RC = 000400 14208 

HC 005320 27108 8239% 11059 11068 11076 11084 11092 11100 11110 11121 11133 

HZ 001364 26388 

H. AD 005364 2733%# 8416 8551% 11103 11116 11127 

H. Al 005370 27358 «8436 8543e 11103 11116 11127 

H. AZ 005374 27378 «8534% 8630 11116 11127 

H. AZ 005400 27398  8525% 

H. BO 005366 27348 8426 85524 11103 11116 11127 

H. B1 005372 27308 8446 8544x 11103 11116 11127 

H. B2 005376 27388 85354 8642 1111h 11127 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE 
29-SEP-77 09: 55 


DZROGA. P11 

H. BS 005402 
IDRE = 002000 
1€ = 000100 
1LF == 000001 
INTER  Q50066 
1\OTVEC= 000020 
IR = 000100 
LC 012770 
LCLKF 005456 
LCVEC 001330 
LF = 000012 
LIMERP 001454 
LKS 001326 
MASK 012772 
MASK1 = =012774 
MCLK = 000400 
MDS = 001000 
MEMBAS= 172100 
MEMERR 050024 
MEMPAR 010350 
MEMVEC= 000114 
MERD = 001000 
MESMSK= 000017 
MEWD = 002000 
MIND = 000200 
MSG1 054566 
MSG10 056311 
MSG11 056336 
MSG13 056376 
MSG14 O5€455 
MSG15 056500 
MSGi6é 056512 
MSG17 056537 
MSG19 056567 
MSG19A 056576 
MSG2 055743 
MSG20 056602 
MSG21 056625 
MSG22 056663 
MSG23 056667 


MSG3 


056014 


MACY11 30(1046) 


E 3 
29-SEP-77 


CROSS REFERENCE TABLE -- USER SYMBOLS 


DIAGNOSTIC 
8526k 8653 
91168 

3632% 3633% 
4166% 41728 
3753% 

3754 

9405 9411 
10278 10282 
10358 10362 
10410 10417 
10593 10605 
3752 8891% 
4168kK 41738 
4169% 4174R 
3958 4061 
3670 3679 
91028 

3673% 3674% 
102058 

3898 103588 
103628 
10368% 

103778 

4147 103818 
103838 

103878 
11295 

4125% 4221% 
4583x 4590% 
5265% 5274% 
5568% 5598% 
5900% 5928% 
6108% 6140% 
6360% 6403% 
6683% 6692% 
6873% 6897% 
7164% 8=7184% 
7581% 7700% 
103948 

103168 
103958 

7641 3 8=10399% 
4630 10405% 
104068 

103238 


8663 


7078 


10205 
10288 
10368 
10422 
10626 


8906% 
8610 
8605 


8493 


11127 


7206 


10213 
10294 
10373 
10426 
10642 


8636 
8621 


7360 


10218 
10299 
10377 
10432 
10810 


8631 


43544 
4897% 
5347% 
5670% 
59664 
6183% 
6440% 
6723% 
6956% 
7280% 
7745% 


7720 


10222 
10308 
10381 
10450 
10818 


8644 


4 383% 
49404 
5356% 
5728% 
5975% 
6218% 
6471% 
6733% 
6965% 
7292% 
77504 


10232 
10316 
10383 
10458 
10847 


4391% 
4992% 
5386% 
5745% 
6007% 
6231% 
6480% 
6766% 
6989% 
7329% 
7825% 


10:08 PAGE 238 


10241 
10323 
10387 
10478 
10880 


4424% 
5041% 
54 36% 
5754% 
6024% 
6240% 
6532% 
6775% 
6999% 
7338% 
7824" 


10248 
10331 
10392 
10486 
10998 


4W431X 
5072% 
5445% 
5784% 
6033% 
6283% 
6541% 
6788% 
7008% 
7456x 
7857% 


10256 
10336 
10394 
10549 


44 86x 
5115% 
5503% 
5793% 
6061% 
6292% 
6578% 
6797% 
7056% 
7465% 
7867% 


10263 
10343 
10395 
10576 


4513% 
5167% 
5520% 
5823% 
6078% 
6311% 
6604% 
6806% 
7065% 
7547% 
7872% 


SEQ 0237 


10268 
10348 
10399 
10583 


4542" 
5216% 
5529% 
5832% 
6087% 
6320% 
6613% 
6816% 
7145% 
7556% 
7984% 





UNIBUS RKO6-RKO7 DUAL PORT ies DIAGNOSTIC 


DZR6GA. P11 


MSG4 
MSGS 
MSG6 
MSG? 
MSG74 


HEAD 


SECT 


° 

mn 

“ 

“+ 
Te 


229999999099 00909090090909909 
rT 
D 
oO 
€& 


056067 
056121 
056167 
056223 
056712 
056760 
057015 
057037 
056260 
000100 
046760 
040000 
050210 
050246 
050302 
050312 
050344 
050356 
000007 
007000 
000003 
100000 
000760 
077770 
010000 
004000 
012472 
000004 
000015 
000004 
020000 
000200 
067274 
070020 
071312 
067526 
070460 
070514 
070532 
070450 
071341 
070614 
070654 
071024 
067642 
000014 
071250 
071314 
067754 
071260 
071266 
071272 
071310 
071311 
067276 
070426 


29-SEP-77 O09: 


103318 
103368 
1034 3% 
103488 
104108 
104178 
104228 
104268 
103538 


88278 


9197 


11471% 
118538 


11776 


11571 
114978 


MACY11 30(1046) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


11646 


118318 


11575 


11855% 
11742 


119098 


SEQ 0238 





UN!BUS RKO6-RKO? DUAL PORT DRIVE DIAGNOSTIC 
DZROGA. P11 


- 


2VBOOD99D09000 


- 


,OOo 2 


PPSSSSSS9999999000059009090909090000000000000: 
=" 


067572 
067576 
070102 
070220 
067306 
067556 
070112 
067732 
071166 
071110 
070264 
070342 
oooo0e 
071317 
067672 
000030 
067644 
067664 
06726€ 
067302 
070030 
070076 
067766 
067774 
067500 
071307 
067264 
070372 
070414 
067546 
177560 
177562 
067430 
071006 
067440 
067344 
070756 
067374 
070370 
067602 
067472 
071036 
067460 
000340 
067332 
070666 
070724 
071306 
070314 
000020 
071252 
071234 
177564 
177566 
071333 
071350 


29-SEP-77 09: 55 


11470 
114838 
1151? 
11598 
114098 
11456 
115908 
115288 
11481 
11435 
11510 
116488 
11439 
11498 
11505 
115208 
114988 
11499 
11591 
1543 
11515 
11574 
11511 
11460 
114528 
114274 
11419 
11519 
11666 
11430 
113978 
113968 
114358 
11751 
114378 
11408 
11643 
11416 
11426% 
11446 
11438 
117648 
114438 
113838 
11407 
11417 
11702 
11644% 
116448 
113848 
11826 
11452 
113998 
113988 
11436 
11471 


1472 
532 
5868 
6178 


1 
11 

11 

11 
11467 
11663 
11562 
11550 
11485 
116378 
11673 
118798 
118598 
115078 
11503 
115048 
11592 
114078 
115618 
115768 
115448 
115468 
11512 
11637% 
11686 
116628 
116688 
11465 
11738 
11786 
11509 
117548 
11440 
114178 
11669 
114248 
116578 
114858 
114478 
11772 
11448 
11428 
114148 
11682 
11714 
11671% 
11684 
11645 
118328 
11538 
11739 
11810% 
11439 
11647 


114828 
11576 
114798 
11639 


11565 
117848 


11871 
11520 


117478 


11496 


11642 


117248 
117388 
11683 


11540 


11502 


11901% 


11664% 
119008 


11750 


11668 


118468 
11708 


11555 
11748 


118738 


G 3 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 240 
CROSS REFERENCE TABLE -- USER SYMBOLS 


11595 11720 


11528 11590 11833 


11716 §=©11787 §=6©11803 118088 
11791 = 11793 


11712" 118478 


11782 11754a «611784 


11679 


11825% 
11755% 11808 11814 


11879 


SEQ 0239 


| 
| 
| 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
CROSS REFERENCE TABLE -- USER SYMBOLS 


DZR6GA. P11 

0. TVEC= 000014 
O. TYPE 071152 
O.TYP1 071232 
O.TYP2 071212 
0.UIN 067300 
0.UPC 067260 
O.URO 067242 
0.USP 067256 
0.UST 067262 
0. WOS 70110 
0.WDS2 070126 
oO WOS3 070156 
oO WOS4 070214 
Oo. WRO 067722 
©. WROA 067746 
Oo WROL 067730 
oO. WSCH 070106 
0. XXX 071304 
0. 46 06740¢e 
PACK = 000002 
PARAM 001336 
PARSRT 010040 
PAT = 000020 
PCA = 004000 
PCD == 010000 
PCLKF 005460 
PCVEC 001332 
PCYL 001352 
PFSRT 013004 
PGE = 002000 
PIP = 020000 
PIRQ = 177772 
PIRQVE= 000240 
PKRB 001324 
PKS 001320 
PKSB 00132 

PPTP 005432 
PRGSRT 010054 
PRO = Q000000 
PRP: = 000040 
PRO = 0001CO 
PR3 = O00!40 
PRY = 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSH = 177776 
PWRVEC= 000024 
RCYLA 046100 
RCYLD 046026 
ROCHR = 104410 
ROCYLA 045756 
ROCYLOD 045672 
RODATA= 000021 
ROGATE= 100000 


29-SEP-77 09: 55 


37o4s 
2705 


3865 


3794 


3674 


3639% 


$6188 


H 3 
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11429% 
11804 11842 


119108 
11680 11697 11699% 118988 
118978 

11672% 11681" 11688 11708% 11899% 
11633 

3710 

Ssf3 8904 

S2948 sss 

8120 

3818 914e 47 

913e8 9145e = F14e8 


oA 


seq. 0240s 
| 


1 3 
UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC MACY11 30(1046) 29-SEP-77 10:08 PAGE 242 SEQ 0241 


DZROGA. P11 29-SEP-77 09: 55 CROSS REFERENCE TABLE -- USER SYMBOLS 

ROHEAD= 000025 13768 87781 7902 

RDLIN = 104411 8096 9887 101968 

RDOCT = 104412 8143 8156 101978 

RDSEC 045622 85908 8799 

ROTAB 004276 26848 

RDY = 000200 13828 8205 8219 

RECAL = 000013 13718 4262 7136 7264 9010 

RESREG= 104414 9947 9999 101998 11351 

RESVEC= 000010 13308 

RHEAD 046174 8466 86638 

RHTAB 001666 26798 7780 7814 7991 7935 8806 8808 8812 8815 11095 
RKASOF= 000016 13538 3808 7141 7269 7732 7854 8244 8281 8308 8337 
RKBA = 000004 13488 3804 7356% 7400k 7418k 7481% 7606% 8240 

Prcsi = 000000 13468 3801 3913x% 4O26k 4232k 4259X 4299k 4381X 4396k 443te 4540k 4555% 4592% 


4754x 4849x 5012k 5187k 5516k 5617k 5741k 5842k 5941% 6074% 6710% 6738% 6793% 
6821k 6889% 6903*% 6981k 6995xk 7110k 7138% 7150% 7238k 7266% 7278% 7503% 7722% 
7741k 7843% 78634 8180% 8191k 8205 8219 8237 8519% 8528x 8537% s8546k  8559% 


RKCS2 = 000010 13508 3802 3892k 3906k 3910k 4019k% 4O23k 4233x% 4234e 4260% 4261% 4300% 4301% 
U434UX 4Y43S5k 4b93x 4594K 4755x 4756k 4850k 4851x% 5013*% 5014*% 5188% 5189% 5262% 
5264x% 5266k 5271k 5273k S344k S5S34ek 5348k 5353k $355k Su33e Su3S5k S4H37k 8 65442k 
S4uy4yx 5517k 5519x% 5521k 5526% 5528% 5556x 5558k 5560x 5565% 5567% 5595%  5597% 
5599x 5604*% S5606x 5618k 5619x% 5658k 5660% 5662% 5667k 5669k 5742k S744ek 5746% 
5751x 5753k 5781k 5783*% 5785xk 5790k 5792k 5820k 5822xk 5824x 5829% S83ik  5843% 
SSuux S5888k 5890xk 5892k 5897k 5899% 5942% 5944x 5946x 5951% 5953*% 5963%  5965% 
5967x 5972k 5974x 6021k 6023*% 6025k 6030x% 6032% 6075x% 6077% 6079% 6084%  6086% 
6096x% 6098k 6100*% 6105k 6107K 6171% 6173k% 6175% 6180% 61824 6228% 6230% 6232% 
6237*% 6239% 6280K 6282k 6284*% 6289% 6291% 6308% 6310 6312% 6317% 6319% 6348% 
6350% 6352% 6357*% 6359% 6400% 6402k 6404X 6409% 6411% 6428% 6430% 6432% 6437% 
6439% 6468k 6470 6472k 6477k 6479% 6529% 6531% 6533% 6538% 6540% 6601%  6603% 
6605% 6610k 6612% 6680% 6682k 6684% 6689X% 6691% 6711% 6713K 6715% 6720% 6722% 
6763 6765% 6767K 6772k 6774K 6794% 6796% 6798k 6803% 6805% 6861% 6863%  6865% 
6870% 6872k 6904% 6906*% 6908k 6913% 6915% 6953k% 6955% 6957k 6962k 6964%  6996% 
6998x 7000k 7005*% 7007k 7053% 7055% 7057xk 7062k 7064% 7111% 7112% 7181% 7183% 
7185k 7190% 7192k 7239% 7240k 7326k 7328k 7330k 7335k% 7337% 7362% 7363% 7453" 
7455k 7457k 7462k 7464K 7483k 7544e 7546k 7548k 7553% 7555*% 7569% 7571% 7573% 
7578x 7580% 7605x 7697k 7699k% 7701% 7706k 7708K 7723k 7724K 7776% 7777k% 7793 
7822% 7824% 7826k 7831% 7833k 7844*k 7845k 7897k 7898k 7914 7947% 7948k 7981% 
7983% 7985k 7990k 7992k 8238 8506k 8507k 8520k 8521% 8529% 8530 8538%  8539% 
8547x 8548x 8573x 8577x 8578% 9008% 9009k 9024*%  9025% 


RKDA = 000006 13498 3805 7358% 7402k 7420k 7480k 7609% 8241 

RKOB = 000024 1355# 3810 7620 7788 7789 7790 7909 7910 7911 

RKDC = 090020 13548 3809 47094 474OX 4Y8O4eX 484k 6304% 6424k 7078k 7206% 7360% 7482k 7607% 
7725% 7775% 7346% 7896k 8245 

RKOS = 000012 1351# 3806 8242 

RKECPS= 000030 13598 3814 8249 

RKECPT= 000032 13608 3815 8250 

RKER = 000014 1352 3807 8243 

RKMR1 = 000026 13568 3811 4266% 44289k 4655*k 8246 8287k 8291% 8312% S83iek 8522% 8531% s8540% 
8579x 8590k ‘8602x 8618% 8675% 8692% 9014% 

RKMRZ = 000034 13578 3812 8223 8228 8247 

RKMR3 = 000036 13588 3813 8224 8229 8248 

RKPRi 001316 26108 8172 

RKVEC 001314 26098 3737k 8160k 8163% 8170 

RKWC = 000002 13478 3803 7361% 7484x 7608% 8239 

RLS = 000010 1396# 5266 5348 5437 552 5560 5599 5662 B74b 67$5 5824 5892 5946 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 

RSEC 046136 
RTT = 000006 
SAVREG= 104413 
SBPAR 047224 
SCLR = 000040 
SCOP1 = 104415 
SCOP1$ 047276 
SEC 001370 
SECFLG 046524 
SECTOR 001374 
sEEX == 000017 
SELDPV= 066001 
SETINT 043354 
SIZFLG 005462 
SKI = 000002 
SORT 046652 
SPACE2 067216 
SPBAR = 000040 
SRTSPL= 000011 
SRTTAB 002072 
ST = 177776 
STACK = 001100 
START 010050 
START1 010456 
STKLMT= 177776 
STOP 047330 
$T2 010524 
ST3 010570 
ST4 010622 
STs 010646 
SUBCLR 045534 
SVAL = 100000 
SHR 001140 
SWREG 000176 
swo = 000001 
SwoOo = 000001 


29-SEP-77 09: 55 


6025 


9751% 
3658 


1298 


CROSS REFERENCE TABLE -- USER SYMBOLS 


6079 
6715 
7701 
101988 
94 


3906 
102008 


7480 
86554 


4806 
7950 


3630 


8082 


11361% 
8992 


11423% 
3792 
5250 
6760 


11642% 
3843 
5332 
6860 


§052 
4651 
0301 
6950 
7940 


3658% 
9244 


9696 


6232 
6865 


8406 


7609 
8658% 


5083 


11668% 
3904 
5432 
6952 


365% 
9246 


9719 


6284 
6908 


8410 


7610 
8800% 


5136 


11670k 
4012 
5657 
7052 


4798 
6527 
7019 
8977 


8082 
9252 


6312 
6957 


89328 


8592% 
8804 


11696% 
4017 
5887 
7180 


J 3 
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6352 
7000 


8593% 
8805% 


5697 


5446 
5825 
6109 
6433 
6776 
7186 
7835 


4115 
6020 
7321 


6404 
7057 


8594% 
8806% 


4219 
6159 
7451 


5256 
6622 
7178 


8442 
9304 


6432 
7185 


8595% 
8817 


44gy 
6216 
7692 


5338 
6678 
7202 


8452 
9316 


6472 
7330 


8596% 
8827% 


4646 
6279 
8023 


SEQ 0242 


6533 
7457 


8597% 
8828 


7208 


5569 
5947 
6241 
6534 
6874 
7458 
8557 


4697 
6399 
8471 


5694 
6761 
7348 


9074 
9657 


UNIBUS RKO6- RKO? QUAL > te. ta DIAGNOSTIC 


DZR6GA. P11 

SWO1 = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 000020 
SwosS = 000040 
Swo6 = 000100 
SWO7 = 000200 
SWwO8 = 000400 
Swo9 = 001000 
SW1 = 000002 
swi0 = 002000 
SWi1 = 004000 
$wi2 = 010000 
SWiZ = 020000 
Swi4 = 040000 
sWi5 = 100000 
SW2 = =_:«OO0004 
SW3 = 000010 
SW4 = 000020 
SW5 = 000040 
SWe == 000100 
SW7. =: 000200 
SW8 = 000400 
SW9 = 001000 
TBITVE= 000014 
TEMP1 005352 
TEMP2 005354 
TEMPS 005356 
TEMPY 005360 
TEMPS 005362 
TERR 1 047054 
TIMER 005466 
TIMUP 001372 
TITLE 043046 
TKVEC = 000060 
TNO 047204 
TOCYL 001346 
TPVEC = 000064 
TRAPPC 001334 
TRAPVE= OOO034 
TRT = QO00003 
TRTVEC= 000014 
TRUERR 047002 
TSTATN 043750 
TST1 011044 


12878 


9103% 
3636% 
11886 


88418 


37908 


MACY11 30(1046) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4598 
5577 
6141 


K 3 
29-SEP-77 


7895% 


9106 


3923 

54 76% 
8181% 
8391 

8511* 
8946% 
7416% 


4898 
6117 


4845 
5985 


11063 


10:08 PAGE 244 


4020% 
5701% 
8192% 
8393x 
8517 
11079 
8285% 


4937 
6162 


4899 
6118 


11087 


5042 
5762 
7244 


4O29x 
6449% 
8221% 
8397% 
8560% 


8728% 


5038 


4990 
6220 





- 


4O34X 
6890% 
8278% 
8399 

&374% 


8729% 


5073 


5039 


6554 


6283 
6870 


5112 


5074 
6626 


SEQ 0243 


L 3 
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DZR6GA. P11 29-SEP-77 09:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
TST10) =6.015712 4649 46958 

TST11 016352 47908 

TST12 017012 48938 

TST13 020056 50688 

TST14 021122 52488 

TST15 021534 5306 53308 

TST16 022146 5388 54308 

TST17 «=©023556 5646 56558 

TST2 011226 3819 38418 

TST20 025166 5871 58858 

TST21 026112 6009 60188 

TST22 027036 6142 61578 

TST23. =027330 62148 

TST24 027622 62778 

TST25 030472 63978 

TST26 031342 65248 

TST2?, = 31724 6587 65968 

TST3 012076 40108 

TST30 4 =©03230€ 6659 66758 

TST31 §=.032754 6749 67588 

TST32 033422 6832 68568 

TST33 034120 69488 

TST34 034616 70488 

TST36 036342 73198 

TST37 4 =037152 7406 7424 7449S 
TST4 012502 4O46 41138 

TST4O 040562 76908 

TSTS 013004 4164 4170 42178 
TST6 014554 44828 

TST? 015564 46448 

TYPOS = 104405 8041 101908 

TYPE = 104401 3698 3713 3715 3717 3732 3774 3852 3863 3868 3898 3932 3978 4121 


4147 4467 4471 4626 4630 4654 7425 7429 7430 7521 7641 8039 8042 
8076 8129 8359 8984 8986 9054 9059 9076 9121 9149 9299 9307 9375 
9469 9595 9651 9663 9717 9718 9721 9732 9742 9753 9772 9820 9826 
9831 9835 9840 9841 9843 9846 9850 9916 9918 10058 101868 11295 11305 
11306) «6.11310 0.11312) 0 0«6-11320 0 =611329) 11333) «611338 8611340) 11346) 11349 


TYPERR 066736 9306 112948 

TYPOC = 104402 9720 101878 11326 

TYPON = 104404 101898 

TYPOS = 104403 3871 3935 3981 4151 8362 9079 9124 101888 

T.AZ = 000001 27558 4284 4319 4453 4612 4774 4869 5032 5207 5637 5862 7130 7258 
7516 7535 7636 7655 7808 7929 8456 9043 

T.B2 = 000002 27568 4284 4319 4453 4612 4774 4869 502 5207 5637 5262 7130 7258 
7516 7535 7636 7655 7808 7929 8459 . 9043 

T.83 = OO00004 27578 84284 8463 

T1 001376 26468 

T10 001400 26478 3893 3907 3916 4020 4029 4271 6890 6982 8181 8560 8574 9019 

T100 001406 26508 6934 7026 8996 

TS50 001402 26488 

TS500 001404 26498 

T5000 8 001410 26518 

T50000 001412 26528 3914 4027 4715 4§10 4912 4964 608° 5139 5476 6701 6329 6449 
7084 7212 7730 7851 7954 8192 


UFE = 000400 14018 3960 4062 








































DZROGA. P11 
UNITB 905464 


UNLD 005276 
UNLOAD= 000007 
UNS = 040000 


UPE 020000 
VERIFY 012076 
vv = 000100 
WCE = 040000 
WOCNT 001432 
WD1 001414 


WO2 001416 
WLE = 004000 
WORD 001446 
WROATA= 000023 
WRHEAD= 000027 
WRL = 004000 
WRTCHK= 000031 
WRTGAT= 040000 
SAPTHD 001000 
GASTAT= XXXKKK 


SATYC 051600 
SATY1 051554 
SATY3 051562 
SATY4 051572 
SAUTOB 001134 
SBASE 001264 


SBDADR 001122 
SBODAT 001126 


$BELL 001200 
$COW1 001270 
$COW2 001272 


SCHARC 051324 
SCKSWR 052546 
SCMTAG 001100 
$cm3 = 000000 





3749% 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 
29-SEP-77 09: 55 


—— 


M 3 
MACY11 30(1046) 29-SEP-77 10:08 PAGE 246 


SEQ 0245 

CROSS REFERENCE TABLE -- USER SYMBOLS 

4124% 4220% 4234 4244 4246% 4261 4301 4326% 4353% 4382% 4390% 
Y4Y3OxK 4435 4485k 4512k 4541k 4549K 4557 4582% 4589% 4594 4698% 
4851 4896x 4939% 4991 5014 5040x 5071% 5114*% 5166% 189 5215% 
5264 5272% 5273 5303 5333% 5345*% 5346 5354% 5355 5385% Su34e 
5444 5502x 5518% 5519 5527% 5528 5557x 5558 5566% 5567 5596% 
5606 5619 5659% 5660 5668% 5669 5727% 5743% 5744 5752% 5753 
5791% 792 5821% 5822 5830% 1 5844 5889% 5890 5898% 5899 
5944 5952% 5953 5964% 5965 5973% 5974 6006* 6022% 6023 6031% 
6076% 6077 6085% 6086 6097x 6098 6106% 6107 6139% 61608 6172% 
6182 6217k 6229% 0 6238% 6239 6281% 6282 6290% 6291 6309% 
6319 6349% 6350 6358% 6359 6401% 6402 6410% 6411 6429% 6430 
6469% 6470 6478% 6479 6530x 6531 6539% 6540 6574% 6580 6602% 
6612 6646% 6652 6681x% 6682 6690% 6691 6704% 6712% 6713 6721% 
6742 6764% 6765 6773% 6774 6787% 6795% 6796 6804*% 6805 6815% 
6863 6871k 6872 6896*% 6905% 6906 6914*% 6915 6954* 6955 6963% 
6997k 6998 7006x 7007 7054x 7055 7063% 7064 7112 7140 7144% 
7182% 7183 7191k 7192 7240 7268 7272k = 7279K% = 7291% = 7327% = 2S 7328 
7363 7454x% = =—7455 7463k 7464 7545x% 7546 7554x% 7555 7570% 7571 
7698k 7699 7707% 7708 7724 7734K = =7744K —7749K 7777 7823% 7824 
7845 7856% 7866% 7871k 7898 7948 7982k 7983 7991% 7992 8260 
8374 837 8378 8380 8507 8521 8530 8539 8548 8578 9009 
6885* 6938% 6940% 6977k 7030% 7032% 8980 9000% 

6979 

3992 

7719% 7725 7774 7775 7943" 7945 11071 

7720% 7846 7895 7896 7944x 7945 11071 

9710 9867 

3800 8147% 3149% 

9332 9663 9860 

9394 9403k 94088 

3626 3634 3640 3041 3642 


UNIBUS RKO6-RKO7 DUAL PORT DRIVE DIAGNOSTIC 


DZR6GA. P11 


SCM4 
SCNTLC 
SCNTLG 
SCNTLU 
SCPUOP 
SCRLF 


SOBLK 


SERRPC 
SERRTB 


SERTTL 
SESCAP 


SHIBTS 


000006 
053456 
053470 
053463 
001236 
001205 


051544 
054000 
053660 
001274 
001276 
001300 
001302 
001304 
001306 
001310 
001312 
054160 
001226 
001266 
04 3002 
051534 
042772 
042740 
043011 
043006 
001230 
001231 
042644 
042732 
042704 
001103 
001115 
050646 
001116 


005470 
OO1112 
001176 


001230 
001314 
001212 
052020 
001156 
001155 
001120 
001124 
042762 
052636 
000000 
001000 


SHIOCT 053656 


29-SEP-77 


09: 55 


9909% 


CROSS REFERENCE TABLE -- USER SYMBOLS 


25388 25398 25408 
9732 98608 

98628 

9835 9861% 

3868 3932 7429 

11310 11320 §=11333 

9469 94778 

10035 

99328 

10021% 

3685k 8 3747kK 804127 

3856 

8044 80508 

94738 

8046# 9327 

80378 

80548 

80538 

8080 9309 9355 

3663 3848 9357 

4243 7522 7642 

80348 8038 9055% 
4122 8026 80284 
8958 9219 9248 

3643x 9250 9273% 
92928 

9301x% 9302% 9303 

11302 

9300k 9332 

342k =3744RK 4 243K 
4527k 4539% 4565% 
7296k 8021% 8414 

9323 9325 9332 

26068 

9518% 

9484k 9512 9521% 
9380 9411 

9411 

10192 

99208 


25418 


7430 
11346 


8024% 


9490 
9362 
8018% 


4Y337% 
4S8ik 
84184 


35298 


25428 25438 

9307 9332 9376 
8025 

9514 

9492 

11358 

9098 

9256x 9278 9294x 
11055 11063 11071 
4355x% 4368k 4380% 
4588xk 4632k 6886% 
8428k S8438k s844sx 
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9411 


9332 


11079 


4406x 
6925% 
848% 


9753 


11355 


11087 


4422k 
6978% 
8472% 


9840 


11095 


4429% 
7017 
9056% 


9860 


11103 


4473x 
7077% 
9102% 


SEQ 0246 


9921 


11113 


4496x 
7168% 
9105* 


' 8 4 
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SICNT 001104 25118 9263% 9264 9260% 9277 
SINTAG 001135 25258 9715k 9734 9754 9867 
SITEMB 001114 25158 9303% 9311 9332 11296 
SLF 001206 25488 9332 9411 9850 9860 9921 
SLFLG 052017 9522% 95288 
SLPADR 001106 25128 3644% 9085 9254% 9270k 9275 9277 
SLPERR 001110 25138  3645k 8473 8960 8963k% 9111 9254 9271% 9277 9322 
SMADR1 001242 25818 
SMADR2 001246 25858 
SMADR3 001252 25888 
SMADR4Y 001256 25918 
SMAIL 001210 1573 1577 25548 3662 8080 9269 9309 9355 
SMANS1 001240 25758 
SMAMS2 001244 25838 
SMAMNS3 001250 25868 
SMAMSH 001254 25898 
SMBADR 001002 15728 
SMFLG 052016 9482x 9488 9523% 95278 
SMNEW 053506 9721 98658 
SMSGAD 001224 25618 9498k 9501 
SMSGLG 001226 25628 9503% 
SMSGTY 001210 25558 9496 9504% 9516 9520% 
SMSWR = =C53475 9718 98638 
SMTYP1 001241 25768 
SMTYP2 001245 25848 
SMTYP3 001251 25878 
SMTYP4 001255 25908 
$MUL = 000001 4465R 4467 46248 4626 
SMULT 054270 4464 4623 100778 
SMXCNT 050644 9267 92778 
SNULL 001154 25338 9382 9411 
SNWTST= 000001 37808 3782 3826% 3828 39958 3997 41048 4106 41828 4184 44768 4478 46358 


4637 4679% 4681 47838 4785 4878% 4880 5062% 5064 52378  5239° 53248 5326 
54068 5408 5649% 5651 58758# 5877 60128 6014 6145% 6147 6208% 6210 62658 
6267 63908 6392 65118 6513 65908 6592 66628 6664 67528 6754 6835% 6837 
69428 6944 70358 7037 71708 87172 72998 =§=©67301 74338 8 8©67435 7665% 7667 


SOCNT 052244 9567% 9596% 96098 

SOCTVL 053762 4658 9934 99598 

SOMODE 052246 9562% 9566% 9571 9574x% 9585k 96118 

SOVER 050630 9231 9247 9255 9265 92748 

SPASS 001216 25588 3662%. 4377 4536 4YO48 742 8031* 8032* 8040 8053 9261 9278 
SPASTM 001006 15758 

SPWRCT 050206 9142k 9143k 91538 

SPWRON 050122 3638 91308 9145 

SPWRUP 050134 9136 142% 

S$QUES 001204 25468 9332 9411 9772 9843 9860 9918 9921 
SROCHR 053110 97858 10195 

SRODEC= £xaa4% U 10198 

SROLIN 053200 9808% 10196 

SRDOCT 053520 98828 10197 

$ROSZ = 000022 98018 

GRESRE 054440 101438 10199 

SRTNAD 043004 80528 

GR2A = KKEKKK U 10200 

SSAVRE 054402 101278 10198 


$SB2D 054174 4469 4628 100328 
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SSCOPE 050366 3632 92288 

SSETUP= 000137 35958 3631 3632 3634 3636 3638 3640 3641 3642 3644 8029 8077 9229 
9293 9319 9327 9655 9660 9661 9691 9867 

SSTUP = 177777 35958 

SSUPRS 054230 4470 4629 4675 7428 100504 

SSVLAD 050574 9239 92688 

SSVPC = GO0Z44 15498 1554 

SSWR = 167400 11948 1209 1214 1215 1216 1217 1218 1219 1220 1221 2543 2544 2545 


SSWREG 001232 25668 3665 

SSWRMK= 000000 1221 1222 9224 9225 9246 

STESTN 001214 25578 116k 9269% 11055 11062 11063 11071 11079 11087 11095 11103 11113 11124 
STIMES 001174 25438 2641k 3791K 3842k 4O11K 4114k 4218k 4483x 4o4Sk 4696k 4791% 484K 5069% 


5249x 5331k% 5431k S656*% S886* 6019% 6158% 6215% 6278k 6398k 6525% 6597% 6676% 
6759x 6857k 6949x 7049% 7177k 7320k 7450% 7691% 8022% 8030*% 9257k 9264 9267% 


9277 

STKB 001146 25308 9615 9636 9647 9672 9700 9727 

STKINT 052260 3608 96318 9652 9713 

STKQEN= 052257 96208 9686 9797 

STKQIN 052252 96178 9632k 9633 9684% 9685% 9686 96884 

$TKQOU 052254 96188  9633k 9795 9796x 9797 9799% 

STKQSR 052256 96198 9632 9688 9799 

STKS 001144 25298 9615 9637k 9668% 9670 9676% 9698 9714% 9724 9736% 9756% 

STKSRV 052330 9634 96478 

STMPO 8=©001160 25378 

STMP1 001162 25388 

STMP2 001164 25398 

STMP3 001166 25408 

STMP4Y 001170 25418 3912 3931 3945% 3956% 4025 4040 WO43* 4O58k 4102k 444k 4158 6888 
6980 7137 7265 8179 8190 8558 

STMPS 001172 25428 3745k B414%e 8468 8472 

STN = 000041 11958 1209 3768 3780 37918 3819 3826 38428 3995 40118  4O46 4104 41148 


4116 4117 4164 4170 4182 42188 4476 Y4Y83R 4635 4645# 4O49 4679 46968 
4783 47918 4878 48948 5062 50698 5237 52498 5306 5324 53318 5388 5406 
54318 5646 5649 5656# 5871 5875 58868 6009 6012 60198 6142 6145 61588 
6208 62158 6265 62788 6290 63988 6511 65258 6587 6590 65978 6659 6662 
e 2 6949R 7035 7049% 7170 71778 
7299 75208 7406 7424 7433 74508 7665 76918 


STNPWR 054110 9980 9981 100018 

STPB 001152 25328 9400K 9411 

STPFLG 001157 25368 9349 9411 

STPS 001150 25318 9398 9411 

STRAP 054476 3636 §8=61016 38 

STRAPZ2 054520 101748 10185 

$TRP = 000016 101788 101878 10188% 101898 101908 101918 10192 101928 10194 10195% 101968 101978 10198% 
101998 102008 102018 

STRPAD 054532 10168 10185% 

STSTM 001004 15748 

STSTNM 001102 25098 4117k 8029% 9219 9246 9268% 9269 9274 9278 9296 9332 


STKCNT 052250 96168  9631k 9661 9678k 9792 9794% 


STTYIN 053434 9810 9811 98223 984% 9855 98598 


D 4 
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STYPBN= XXXKaK U 10191 

STYPDS 051330 94238 10190 

STYPE 051046 9349% 9509 10178 10186 

STYPEC 051260 9379 9386 9393 93988 9399 9758 

STYPEX 051326 9404 9406 94098 

STYPOC 052046 95658 10187 

STYPON 052062 9564 95678 10189 

STYPOS 052022 95608 10188 

SUNIT 001222 25608  3686x at LL ay sacs 4148 4233 4260 4300 4397 44 34 4556 4593 


SUNITM 001010 15768 
SUSWR 001234 25678 
SVECT1 001260 25928 
SVECT2 001262 25938 
SXTSTR 050400 92338 
S$SGET4¥= 000000 8045# 


SOFILL 052245 9561% 9565% 9575 96108 


| 

| 

| 

| 

| 

| 

| 

| 

SYOCAT= xxkKxK U 9230 9306 
= 067302 15308 15348 15398 15428 1549 15508 15528 15548 15558 1561 15628 15648 15668 


25068 2549 26788 2679%  2680% 26828 26838 26848 3629 3644 3645 8053 8057 
9138 9194 9277 9278 9332 9411 94778 95308 9615 96198 9620 9218 98598 
9860 98678 9921 99598 100218 113708 113718 11520 11749 11753 11785 11809 11871 
11879 §=6118828 11890% 

.SASTA= xxKKKK U 9482 9485 

.$X = 001000 15618 1566 
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CALIB 16838 4257 9006 ~~ 

CHECK = 16228 «42824317, “43N6 4369) 4415) 44ST = 4505 = 45284574 10-4732) 477Z2) «48274867 
y929 «49524981 = S004 = «$030 «= S054 = 10H = «5127, 5156 «= 5179» 5205 5229. 5295 5316 = 5377 
5398 5¥62 5493 5549 5588 5635 5687 5718 5774 5813 5860 5917 5999 6050 6132 
6200 6257 6341 6382 6461 6502 6565 6637 7101 7128 7229 7256 7379 7514 7533 


COMMEN 13418 


ceil 
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ESCAPE 13418 
F_ EAB 16028 
4972 
Sygy 
6333 
7758 
GETPRI 1341% 
GETSWR 13418 
HOCHK3 17848 
HOTBL 17978 
HEADER 20328 
LOOP 15868 
MSG 37808 
4880 
68358 
MULT 13418 
NEWTST 13418 
5649 
7299 
OWNTAG 15798 
POP 1341% 
PUSH 13418 
QKPACK 19598 
QKSEEK 1809% 
QKSRT 17128 
ROATA 18778 
RDHOR 17568 
RELEAS 1979% 
6075 
6794 
REPORT 13418 
REPTA 20258 
REPTST 20198 
SCOPE 12368 
5655 
7319 
SE TP 20068 
SETPRI 13418 
SETTRA 101788 
SETUP 13418 
Sh IP 13418 
6749 
SLASH 13418 
SPACE 13418 
STARS 13418 
4112 
5237 
6213 
6942 
9334 
10112 
STDER1 16498 
STOERZ2 16548 
SUNIT 20398 
SWRSU 13418 
TRMTRP 101788 
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4274 4309 
4996 5022 
5541 5580 
6373 6453 
7798 7879 
8077 

7778 7899 
2044 2128 
3902 4015 
3782 38268 
52378 5239 
6837 70358 
4462 4621 
3780 3826 
5875 6012 
7433 7665 
2608 

9464 9524 
9423 9485 
4231 

4710 4805 
6926 7018 
7779 7900 
5262 5344 
6096 6171 
6861 6904 
4785 6392 
4478 5064 
3790 3841 
5885 6018 
7449 7690 
4220 4326 
9788 
10187 10188 
3624 

3768 3819 
6832 7406 
1547 1558 
4182 4216 
5247 5324 
6265 6276 
6947 7035 
941 9480 
10157 = 11284 
4944 4996 
5308 5390 
7362 772 
36468 


10189 


yOu 
7424 


1560 
4476 
5329 
6390 
7047 
9537 
11293 
5046 
5454 


7776 


CROSS REFERENCE TABLE -- 


2190 
39958 
5408 
7299% 
4104 
6208 
9910 
9508 


4959 


10190 
4164 


i567 
4481 
5406 
6396 


7170 . 


9614 


5119 
5541 
7844 


MACY11 30(1046) 


W443 4497 
51195147 
5709 5766 
6629 7092 
9033 
2211 2257 
3997-41048 
58758 5877 
7301-74338 
4182-4476 
6265 6390 

10106 10148 
9884 10077 
60825134 
5556 5595 
6308 6348 
70537181 
6014 6210 
4217-4482 
6277 6397 
4793-4896 

10192 10194 
4170 4e49 
2502 2549 
4635-443 
5429 5649 
6511 6523 
7175 7299 
9691 9706 
5171 $221 
5580 5679 
7897-794? 
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4566 4602 
5171 5197 
5805 5852 
7120 7220 
2299 2309 
4106 41828 
61458 6147 
7435 76658 
4635 4679 
6511 6590 
10128 

5471 5696 
5658 5742 
6400 6428 
7326 7453 
6592 6754 
4o44 4695 
6524 6596 
5071 5251 
10195 10196 
5306 5388 
2552 3780 
4679 =—_- 4694 
5654 5875 
6590 6595 
7318 7433 
9777, —- 9801 
6557 6629 
5766 5805 


7079 


5781 
6468 
7544 


6944 
4790 
6675 


5333 
10197 
5646 


3789 
4783 
5884 
6662 
7448 
9870 


5909 


2374 


46358 
6267 


4878 
6752 


7207 


5820 
6529 
7569 


7172 
4893 
6758 


6160 
10198 
5871 


3826 
4789 
6012 
6674 
7665 
9923 


5990 


SEQ 0251 | 


2415 
4637 
65118 


5062 
6835 


7949 


5888 
6601 
7697 


5068 
6856 


6217 
10199 
6009 


3840 
4878 
6017 
6752 
7689 
9962 


6042 


2449 


46798 
6513 


5237 
6942 


5942 
6680 
7822 


5248 
6948 


19200 
6142 


3995 
4892 
6145 
6757 
8012 
10024 


* 6122 


4681 
66628 


5324 
7035 


6 
10042 


6192 


48788 
6664 


5406 
7170 
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TST10 
TST12 
TST14 
TST16 
TST20 


SSSET 
SSSETM 
SSSKIP 


. EQUAT 
. HEADE 
. SETUP 
. SHRHI 
. SHRLO 
SACTI 
SAP TB 
_ SAPTH 
SAPTY 
SCATC 
. SCNTA 
. $0820 
. $0B20 
. SEOP 
. SERRO 
. SMULT 
. SRDOC 
. SREAD 
. SSAVE 
. $SB20 
. SSCOP 
. SSUPR 
_ STRAP 
. $TYPD 


21328 
21588 
21948 
22158 
22618 


11948 
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10187 
3768 


2538 


we 
382 


e012 
7665 
10188 


3819 
7406 


CROSS REFERENCE TABLE -- MACRO NAMES 


3979 4149 


2539 2540 


3995 4104 
e145 6208 


10189 10190 


4¥O4n 4164 
7424 


2541 


4182 
6265 


10192 


4170 


9077 


2542 


4476 
6390 


10194 


4649 


4635 
6511 


10195 
£306 


4679 
6590 


10196 
5288 


4783 
6662 


10197 


5o46 


me 
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4878 
6752 


10198 
6871 


5062 
6835 


10199 
6009 


5237 
6942 


10200 
6142 


5324 
7035 


6587 


SEQ 0252 


5406 
7170 


6659 


A ee ee a ee ee | + ee a ee ed 
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STYPE «611948 9332 
-STYPO) | =—-:11948 = 9535 
ABS. 071352 000 


ERRORS DETECTED: 0 


DZROGA. DZROGA. SEQ/SOL/CRF “NL: TOC/DOC=DZR6GA. P11 
PUN-TIME: 36 35 4 SECONDS 

PUN-TIME RATIO: 1564/776=20. 4 

CORE USED: 33K (65 PAGES) 


COCUMENT PAGES: 253 


